Como puedo seleccionar un directorio y visualizarlo en un listbox

[ELGRANSOLRAC]

Ola chicos haber si alguien puede ayudarme.Netesito seleccionar un Directorio y que se visualice en un listBox.
Como cuando seleccionas un archivo con el CommonDialog1,
pero un directori y todos los archivos de ese directorio visualizarlos en un ListBox en Visual Basic 6.GRACIAS DE ANTEMANO.....Saludos a Todos...........

[soplo]

Hola
¿Tu has mirado el objeto file?

Un saludo

[ELGRANSOLRAC]

Soplo no te entiendo

[soplo]

Hola
El objeto file es un listbox donde están todos los archivos que estén en path. Además según que le pongas un pattern u otro te sacará todos (por defecto) o bien solo los jpg por ejemplo.

En el subforo de ejercicios hay un caso específico para esto. Se trata de seleccionar una unidad, al hacerlo te salen las carpetas que hay en esa unidad, al elegir una te salen las imágenes que hay en esa carpeta y al seleccionar una la ves.

Es exactamente lo que tu quieres.

Un saludo

[ELGRANSOLRAC]

Muchisimas gracias Soplo,eso que me dices es lo que busco
GRACIAS OTRA VEZ. Un saludo

[ELGRANSOLRAC]

Si Puedes facilitarme la direccion de URL: del subforo que me dices te lo agradeceria.GRACIAS SOPLO.

[soplo]

Hola
Tienes todos tus post sobre visual basic en el foro de programación cuando hay uno específico para visual basic

Foro de Visual Basic
http://foro.elhacker.net/index.php/board,50.0.html

y ya que me lo pides
Foro de ejercicios
http://foro.elhacker.net/index.php/board,38.0.html

Y no estaría mal que miraras porque el de visual basic está dos líneas mas abajo que el de programación y el de ejercicios está junto a la ingeniería inversa dentro de programación. Cada vez que vas a poner un post lo ves en la parte superior de la pantalla.

Te muevo todos tus post de visual basic a su zona correspondiente

Un saludo

[el_chente23]

En un proyecto nuevo de visual basic agrega un objeto DirListBox y un objeto FileListBox, y pega el siguiente codigo :

Código [Seleccionar] Expandir


Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Form_Load()
File1.Pattern = "*.jpg;*.bmp"
End Sub

En la propiedad pattern, estableces que extensiones de archivos quieres ver.

Saludos

[ELGRANSOLRAC]

Gracias a todos me a sido de gran ayuda GRACIAS...