Ejemplos usando el Api de windows para Visual basic

69 - Recuperar paths del sistema con las api SHGetSpecialFolderLocation y SHGetPathFromIDList

Volver al Listado Api - Anterior - Siguiente

Este ejemplo permite obtener los paths ( Rutas especiales ) del sistema operativo, usando las funciones Api SHGetSpecialFolderLocation y SHGetPathFromIDList.

El mismo permite recuperar 60 paths, como la carpeta de mis documentos, Favoritos, Fuentes, Escritorio, Programas, Archivos de programa, Impresión etc...

Al ejemplo, le agregué la lista de constantes que se le deben pasar al api (sacadas del Api Viewer 2004 - Visor de funciones api ).

Pero para hacerlo mas rápido, ya que si no abría que pasar una por una las constantes a la función Api, lo metí en un bucle, y este le pasa el valor del For-Next.

De todas maneras la lista de constantes están declaradas en el ejemplo, y si queremos alguna especial solo hay que pasar la constante correspondiente a la función ObtenerPathSistema.

Colocar un control List1 y el código en un formulario:

Option Explicit 'Constantes de las carpetas / Directorios especiales de Windows '--------------------------------------------------------------------------- Private Const CSIDL_ADMINTOOLS As Long = &H30 Private Const CSIDL_ALTSTARTUP As Long = &H1D Private Const CSIDL_APPDATA As Long = &H1A Private Const CSIDL_BITBUCKET As Long = &HA Private Const CSIDL_COMMON_ADMINTOOLS As Long = &H2F Private Const CSIDL_COMMON_ALTSTARTUP As Long = &H1E Private Const CSIDL_COMMON_APPDATA As Long = &H23 Private Const CSIDL_COMMON_DESKTOPDIRECTORY As Long = &H19 Private Const CSIDL_COMMON_DOCUMENTS As Long = &H2E Private Const CSIDL_COMMON_FAVORITES As Long = &H1F Private Const CSIDL_COMMON_PROGRAMS As Long = &H17 Private Const CSIDL_COMMON_STARTMENU As Long = &H16 Private Const CSIDL_COMMON_STARTUP As Long = &H18 Private Const CSIDL_COMMON_TEMPLATES As Long = &H2D Private Const CSIDL_CONNECTIONS As Long = &H31 Private Const CSIDL_CONTROLS As Long = &H3 Private Const CSIDL_COOKIES As Long = &H21 Private Const CSIDL_DESKTOP As Long = &H0 Private Const CSIDL_DESKTOPDIRECTORY As Long = &H10 Private Const CSIDL_DRIVES As Long = &H11 Private Const CSIDL_FAVORITES As Long = &H6 Private Const CSIDL_FLAG_DONT_VERIFY As Long = &H4000 Private Const CSIDL_FLAG_MASK As Long = &HFF00& Private Const CSIDL_FLAG_PFTI_TRACKTARGET As Long = CSIDL_FLAG_DONT_VERIFY Private Const CSIDL_FONTS As Long = &H14 Private Const CSIDL_INTERNET As Long = &H1 Private Const CSIDL_HISTORY As Long = &H22 Private Const CSIDL_INTERNET_CACHE As Long = &H20 Private Const CSIDL_LOCAL_APPDATA As Long = &H1C Private Const CSIDL_MYPICTURES As Long = &H27 Private Const CSIDL_NETHOOD As Long = &H13 Private Const CSIDL_NETWORK As Long = &H12 Private Const CSIDL_PERSONAL As Long = &H5 Private Const CSIDL_PRINTERS As Long = &H4 Private Const CSIDL_PRINTHOOD As Long = &H1B Private Const CSIDL_PROFILE As Long = &H28 Private Const CSIDL_PROGRAM_FILES As Long = &H26 Private Const CSIDL_PROGRAM_FILES_COMMON As Long = &H2B Private Const CSIDL_PROGRAM_FILES_COMMONX86 As Long = &H2C Private Const CSIDL_PROGRAM_FILESX86 As Long = &H2A Private Const CSIDL_PROGRAMS As Long = &H2 Private Const CSIDL_RECENT As Long = &H8 Private Const CSIDL_SENDTO As Long = &H9 Private Const CSIDL_STARTMENU As Long = &HB Private Const CSIDL_STARTUP As Long = &H7 Private Const CSIDL_SYSTEM As Long = &H25 Private Const CSIDL_SYSTEMX86 As Long = &H29 Private Const CSIDL_TEMPLATES As Long = &H15 Private Const CSIDL_WINDOWS As Long = &H24 Const MAX_PATH = 260 'Udt '------------------------------------------- Private Type SHITEMID cb As Long abID As Byte End Type Private Type ITEMIDLIST mkid As SHITEMID End Type 'Funciones Api '------------------------------------------- Private Declare Function SHGetSpecialFolderLocation _ Lib "shell32.dll" ( _ ByVal hwndOwner As Long, _ ByVal nFolder As Long, _ pidl As ITEMIDLIST) As Long Private Declare Function SHGetPathFromIDList _ Lib "shell32.dll" _ Alias "SHGetPathFromIDListA" ( _ ByVal pidl As Long, _ ByVal pszPath As String) As Long Private Sub Form_Load() Dim i As Long Dim Path As String 'Agregamos 60 paths del sistema For i = 1 To 60 Path = Obtener_Path_Sistema(i) If Path <> vbNullString Then List1.AddItem "Valor para pasar a la función >>: " & i & " " _ & "Path-->> " & Obtener_Path_Sistema(i) End If Next End Sub 'Retorna lña ruta de las carpetas especiales de windows Private Function Obtener_Path_Sistema(CSIDL As Long) As String Dim ret As Long Dim IDL As ITEMIDLIST Dim Path As String ret = SHGetSpecialFolderLocation(100, CSIDL, IDL) If ret = 0 Then 'buffer de caracteres Path$ = Space$(512) 'recuperamos el path del IDList ret = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal Path$) ' Eliminamos los chr$(0) ( Espacios nulos retornados del path ) Obtener_Path_Sistema = Left$(Path, InStr(Path, Chr$(0)) - 1) Exit Function End If Obtener_Path_Sistema = vbNullString End Function Private Sub Form_Resize() ' Redimensiona el listbox List1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight End Sub

Enlaces relacionados

Buscar en Recursos vb