Información Directorios Windows

Con estas API’s puedes obtener el directorio completo de donde este instalado el Windows y el directorio SYSTEM sea cual sea el camino que se haya indicado en su instalación.

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, _
             ByVal nSize As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, _
             ByVal nSize As Long) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, _
             ByVal lpBuffer As String) As Long
Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, _
        ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long

Private Sub Form_Load()
    Dim Dir As String * 255
    Dim Res As Long

    ' Información del Directorio Windows
    Res = GetWindowsDirectory(Dir, Len(Dir))
    Lbl_DirWin.Caption = Left$(Dir, Res)

    ' Información del Directorio System de Windows
    Res = GetSystemDirectory(Dir, Len(Dir))
    Lbl_DirSys.Caption = Left$(Dir, Res)

    ' Información del Directorio Temporal de Windows
    Res = GetTempPath(Len(Dir), Dir)
    Lbl_DirTmp.Caption = Left$(Dir, Res)

    ' Nombre fichero Temporal
    Res = GetTempFileName(Dir, "Tmp", 0, Dir)
    Lbl_FileTmp.Caption = Left$(Dir, Res)
End Sub
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s