Directorio Windows

[diegoc]

Hola a todos:
Normalmente el directorio de windows es c:\windows, pero en una PC cliente puede existir la posiblidad que sea otro path. ¿Cómo puedo referirme en forma genérica al path de windows usando VB5 por medio de código? Gracias.

Saludos

Diego

[David]

Iniciado por diegoc

Hola a todos:
Normalmente el directorio de windows es c:\windows, pero en una PC cliente puede existir la posiblidad que sea otro path. ¿Cómo puedo referirme en forma genérica al path de windows usando VB5 por medio de código? Gracias.

Saludos

Diego

Así:

Código:

 
Private Declare Function GetWindowsDirectory Lib "Kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Function WindowsPath() As String
Dim WinDir As String
Dim Cadena As String
Dim ret As Long
Cadena = String$(300, Chr$(0))
ret = GetWindowsDirectory(Cadena, Len(Cadena))
WinDir = Left$(Cadena, ret)
WindowsPath = WinDir
End Sub

De preferencia colóquelo en un módulo, al llamar a la función WindowsPath te devolverá la ruta de Windows...