Seleccionar carpeta

[xavi]

Palabras clave: seleccionar, carpeta, directorio
Autor: Juan M. Afán de Ribera (Happy)
Extraído de: La web del Búho

Objetivo:
Mostrar un selector de carpetas.

Ya sabéis que a mi no me importa (en absoluto) utilizar el API para hacer cosillas e inventos. Lo que ocurre es que en el caso del BrowseForFolder tenemos un churro inmenso de código con declaraciones API y constantes. Pero entre ese churro de código y ésto otro hay una diferencia de unas cuantas líneas. Además, es mucho más fácil de mantener y está documentado con la librería Shell. Por otro lado, como esta librería es parte de las librerías del sistema operativo no hay que preocuparse de actualizaciones entre 32 o 64 bits (Microsoft ya se habrá encargado de hacerlo).

Código [Seleccionar] Expandir


Public Function GetFolder(Titulo As String) As String
    Dim oShell As Object   
    On Error Resume Next   
    Set oShell = CreateObject("Shell.Application")   
    GetFolder = oShell.BrowseForFolder(hWndAccessApp, Titulo, 0&).Self.Path   
    Set oShell = Nothing   
    On Error GoTo 0
End Function