Bueno a falta de 1 respuesta me tope como 3.... jejeje aqui se las comparto me parece algo muy util mas q todo cuando se manejan archivos de configuracion .....
Por ejemplo este, en este caso traemos mis documentos
Dim WScript As Object
Set WScript = CreateObject("WScript.Shell")
‘obtenemos la ruta del destino de Mis Documentos
MsgBox WScript.SpecialFolders("MyDocuments")
Set WScript = Nothing
en donde cada parametro es :
AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
Desktop
Favorites
Fonts
MyDocuments
NetHood
PrintHood
Programs
Recent
SendTo
StartMenu
Startup
Templates
Me encontre este otro q tambn es bien interesante, lo use para el directorio de windows
Private Sub Form_Load()
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
'Esta devuelve el directorio de Windows
MsgBox FSO.GetSpecialFolder(0)
'Esta devuelve el System32
MsgBox FSO.GetSpecialFolder(1)
'Esta devuelve el TEMP
MsgBox FSO.GetSpecialFolder(2)
End Sub
Y este extralargo usando el api de windows
Option Explicit
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias
"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long)
As Long
Public Declare Function GetSystemDirectory Lib "kernel32" Alias
"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long)
As Long
Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA"
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Public Enum SYS_Path
WINDOWS_DIR = 0
SYSTEM_DIR = 1
TEMP_DIR = 2
End Enum
Public Function SYS_GetPath(Path As SYS_Path) As String
On Local Error Resume Next
Dim Temp As String * 256
Dim X As Integer
Select Case Path
Case 0 'Directorio Windows:
X = GetWindowsDirectory(Temp, Len(Temp))
Case 1 'Directorio System:
X = GetSystemDirectory(Temp, Len(Temp))
Case 2 'Directorio Temp (Directorio Temporal):
X = GetTempPath(Len(Temp), Temp)
End Select
SYS_GetPath = VBA.Left$(Temp, X)
If Path = TEMP_DIR Then SYS_GetPath = VBA.Left$(SYS_GetPath, Len(SYS_GetPath) - 1)
End Function
Y pues segun lo q encontre, la mejor es la API ya q no vale la pena cargarse todo un script para eso
....
Espero le sirva a alguien y no solo a mi
