RE:Crear Explorador con PB
Podemos crear nuestro propio Explorador. Es sencillo; pero la ventaja es que se logra obtener la ruta completa de la carpeta y archivo que se seleccione.
Pasos:
1. En tu ventana insertá tres controles:
- lb_paths (mostrará los drivers, carpetas y subcarpetas)
- lb_files (mostrará sólo archivos)
- st_path (mostrará la ruta de la carpeta seleccionada)
2. Evento open de la ventana:
DirList(lb_paths, "*.", 16401, st_path)
DirList(lb_files, "*.*", 0)
3. Evento DoubleClicked de lb_paths
DirSelect(lb_paths,st_path.text)
DirList(lb_paths, st_path.text+ "*.", 16401, st_path)
DirList(lb_files, st_path.text+ "\*.*", 0)
4. Evento DoubleClicked de lb_files
string backslash
if (len(st_path.text) > 0 ) and &
(right(st_path.text, 1) <> "\") then backslash = "\"
MessageBox("Hola", "Seleccionaste el archivo " &
+st_path.text + backslash + lb_files.selecteditem())
//------Fin-----------
Nota: Si deseas saber, el porqué se eligieron ciertos números (16401, 0), ve la ayuda de Dirlist.