Ejemplos usando el Api de windows para Visual basic

140 - Ejemplo para recuperar el directorio de windows y el directorio de sistema

Volver al Listado Api - Anterior - Siguiente

Para obtener el directorio de sistema se utiliza la función Api GetSystemDirectory, para recuperar el path de Windows GetWindowsDirectory.

A las dos funciones se les envía en el primer parámetro un buffer de caracteres que retorna el path. Las funciones retornan la cantidad de caracteres de la ruta.

Código en un Formulario

Option Explicit ' Función Api para obtener el directorio de windows Private Declare Function GetWindowsDirectory _ Lib "kernel32" _ Alias "GetWindowsDirectoryA" ( _ ByVal lpBuffer As String, _ ByVal nSize As Long) As Long ' Función Api para obtener el directorio de systema ( system / system32 ) Private Declare Function GetSystemDirectory _ Lib "kernel32" _ Alias "GetSystemDirectoryA" ( _ ByVal lpBuffer As String, _ ByVal nSize As Long) As Long Private Sub Form_Load() Dim Buffer As String * 256 Dim Tam As Long ' Muestra el path del directorio de sistema Tam = GetSystemDirectory(Buffer, Len(Buffer)) MsgBox "El directorio de sistema : " & Left$(Buffer, Tam), vbInformation ' Muestra el path del directorio de Windows Tam = GetWindowsDirectory(Buffer, Len(Buffer)) MsgBox "El directorio de windows : " & Left$(Buffer, Tam), vbInformation End Sub

Enlaces relacionados

Buscar en Recursos vb