alguien sabe como mostrar un dialogo para seleccionar un directorio y luego mostrar todos los subdirectorios y archivos que se encuentran dentro del directorio seleccionado ?

gracias

fijate aca tenes como 12 ejemplos de exploradores de archivos fijate cual es el que mas te sirve,tenes complejos y faciles.

http://vbasic.astalaweb.com/Archivos...Explorador.asp

Si buscas como invocar el dialogo de seleccion de directorios:


Busca en la Guia de Recursos acerca de cuadros de dialogo. En uno de ellos se explica como invocar este cuadro de dialogo mediante API de Windows.

Salu2...

para hacer lo que dijo [EX3] pone un boton en el form y como codigo esto,vas a poder buscar y te devuelve la ruta del archivo que elegiste en un msgbox:

Option Explicit
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)


Set o_Carpeta = objFolder.Self


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

ret = Buscar_Carpeta(" ... Seleccione una carpeta ")

MsgBox ret, vbInformation

End Sub

Private Sub Form_Load()
Command1.Caption = " Abrir carpeta "
End Sub

pero aca te pongo un ejemplo muy simple de como seleccionar
una carpeta y mostrar los archivos en ella:
pone en el form los controles DriveListBox, DirListBox y FileListBox
y como codigo simplemente esto:



Private Sub Drive1_Change ()
Dir1.Path = Drive1.Drive ' Establece la ruta del directorio.
End Sub
Private Sub Dir1_Change ()
File1.Path = Dir1.Path ' Establece la ruta del archivo.
End Sub

y "listo" explorador simple creado.









Edited by: seba123neo

tambien puedes usar el control commondialog que te permite, ejecutar lascajas de dialogo de windows.

Para mas seguridad, yo usaría el api de windows como dijo Ex3. Ya que al usar Wsh (windows scriptingHost), hay que asegurarse de que si o si corre en dicha máquina.

Creo que en este caso usar wsh, es mas para cuando se emplea lenguajes de secuencias de comando, por ejemplo vbScript, y no se tiene acceso a la Api

saludosEdited by: Luciano