Por medio del siguiente código se puede saber el nombre del directorio del windows en una PC cliente:
Private Function FnPathWin() As String
Dim TmpStr As String
TmpStr = Space(1024)
Call GetWindowsDirectory(TmpStr, Len(TmpStr))
TmpStr = Mid(Trim(TmpStr), 1)
FnPathWin = Mid(TmpStr, 1, Len(TmpStr) - 1)
End Function
Generalmente es c:\windows pero es una variable y todos sabemos que puede cambiar de una PC a otra.

Mi consulta es la siguiente: ¿Alguien sabe hacer lo mismo pero para saber la ruta del directorio Fonts del windows en una PC cliente?

Saludos

Diego