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
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
Todos somos ignorantes;lo que pasa es que no todos ignoramos las mismas cosas - Albert Einstein
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...
Cada vez que se alinean los planetas me paso de visita por el foro
dx_lib32: Programa juegos en Visual Basic 6.0 y Visual Basic .NET con la potencia de DirectX 8.1
Version 2.2.0 final publicada
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
Todos somos ignorantes;lo que pasa es que no todos ignoramos las mismas cosas - Albert Einstein
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