Sección de códigos , trucos y ejemplos para visual basic

290 - Diálogo de windows para seleccionar carpeta

Ejemplo que permite abrir el cuadro de diálogo de windows para poder seleccionar o buscar una carpeta en el sistema

cuadro de diálogo

vista del cuadro de diálogo de windows

En este ejemplo, para poder acceder a dicho cuadro de diálogo, se utiliza Windows script host mediante automatización, es decir creando una referencia al objeto Shell.Application , mediante la función CreateObject de visual basic

Una ves creada la instancia del objeto, para abrir el diálogo se utiliza el método BrowseForFolder. Este tiene varios parámetros, pero los importantes son dos ( El título o leyenda a mostrar y el path inicial donde se ubicará el árbol de directorios al abrirlo ).

Nota: El path inicial, si se pasa como parámetro a una función, debe estar declarado como de tipo Variant. Si se declara como de tipo String, la función no hará caso del path y lo ignorará

Una ves seleccionada la carpeta, unidad o recurso, se debe consultar la propiedad Path que devuelve la ruta completa de la carpeta seleccionada. Si se desea consultar solo el nombre de la misma, usar la propiedad self

Nota: hay una función de ajuste ( de tipo String ) que retorna la carpeta seleccionada.

Para el ejemplo agregar

un CommandButton en el formulario
el siguiente código fuente:

Código

Option Explicit ' Funcción que abre el cuadro de dialogo y retorna la ruta '****************************************************************** Function Buscar_Carpeta(Optional Titulo As String, _ Optional Path_Inicial As Variant) As String On Local Error GoTo errFunction Dim objShell As Object Dim objFolder As Object Dim o_Carpeta As Object ' Nuevo objeto Shell.Application Set objShell = CreateObject("Shell.Application") On Error Resume Next 'Abre el cuadro de diálogo para seleccionar Set objFolder = objShell.BrowseForFolder( _ 0, _ Titulo, _ 0, _ Path_Inicial) ' Devuelve solo el nombre de carpeta Set o_Carpeta = objFolder.Self ' Devuelve la ruta completa seleccionada en el diálogo Buscar_Carpeta = o_Carpeta.Path Exit Function 'Error errFunction: MsgBox Err.Description, vbCritical Buscar_Carpeta = vbNullString End Function Private Sub Command1_Click() Dim ret As String ' Le pasa la leyenda del cuadro de iálogo y el path inicial ret = Buscar_Carpeta(" ... Seleccione una carpeta ") MsgBox ret, vbInformation End Sub Private Sub Form_Load() Command1.Caption = " Abrir cuadro de diálogo buscar carpeta " End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb