Cita:
Iniciado por diegoc 
Hola a todos,
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?
Gracias.
Saludos
Diego
Si tu codigo funciona y devuelve el directorio de Windows. Solamente agregale la carpeta "Fonts". Ya que esa siempre es la misma, aca y en la china, aunque este en otro idioma el win....
Saludos