22/02/2007, 10:57
|
 | | | Fecha de Ingreso: noviembre-2003
Mensajes: 959
Antigüedad: 20 años, 6 meses Puntos: 19 | |
| Re: Saber Directorio Fonts en cliente
Cita:
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
|