Saber Directorio Fonts en cliente

[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

[culd]

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

[diegoc]

Hola,
Gracias por responder. Efectivamente el código funciona y es lo que hago, agregarle el directorio Fonts. El tema es que me gustaria encontrar una función(O no se como se llama) que en vez de decir el directorio del windows directamente me de el de Fonts. Gracias.

Saludos

Diego

[culd]

Iniciado por diegoc

El tema es que me gustaria encontrar una función(O no se como se llama) que en vez de decir el directorio del windows directamente me de el de Fonts. Gracias.

Saludos

Diego

Aca te dejo la funcion. Ponela en un modulo

Código:

'----- Saber la ubicacion de la carpeta Fonts -----
' Creado por CULD a pedido de diegoc
' Todos los derechos e izquierdos reservados
Public Declare Function GetWindowsDirectory Lib "Kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Const MAX_PATH = 260

Public Function Directorio_Fonts()
Dim strFolder As String
strFolder = String(MAX_PATH, 0)
waf = GetWindowsDirectory(strFolder, MAX_PATH)
If waf <> 0 Then
    Directorio_Fonts = Left(strFolder, InStr(strFolder, Chr(0)) - 1) & "\Fonts\"
Else
    Get_WinPath = ""
End If
End Function

[luciano]

Hola, te paso un ejemplo .. que además te permite obtener otras rutas.

La que te da la ruta de la carpeta de fuentes es la constante CSIDL_FONTS

REcuperar rutas de windows con el api


saludos


-------------------

[diegoc]

¡Hola a Todos!

¡Refloto este Post!

El link indicado por Luciano está muy bueno, pero funciona en VB6. En este momento trabajo con VB2008EXPRESS y no me acepta la definición de los datos Type, me indica que use Structure pero me pide una definición de un evento. ¿Alguien sabe como solucionarlo? ¿Alguien sabe como saber el path de Fonts en PC cliente por medio de VB2008EXPRESS? ¡Gracias de antemano!

Saludos

Diego