Leer Nombres de Archivos, Cómo puedo hacerlo?

[genito]

Hola que tal?!

Quería pediros ayuda sobre una tema al que no le encuentro solución. Vereis, quisiera saber si se puede leer el nombre de un archivo guardado en un directorio de nuestro PC para luego, a través de la aplicación, mostrarlo por pantalla ja sea en un TreeView, ListView, etc,...

Gracias por leer mi pregunta y por contestar (si contestais)

genito <xclub>

[vbx3m]

Una opcion es que hagas un buscador usando Drive, Dir y FileListbox que recorra los directorios y compare el nombre de archivo y si lo encuentra lo añada al ListView...

Es una sugerencia...

[xaquin]

usa la función dir, sólo tienes que buscar en la ayuda de VB

este es un código ejemplo de la ayuda de VB

Código:

Dim MiArchivo, MiRuta, MiNombre
' Devuelve "WIN.INI"  si existe.
MiArchivo = Dir("C:\WINDOWS\WIN.INI")   

' devuelve el nombre de archivo con la extensión especificada. Si hay más de un *.ini
' el archivo existe, devuelve el primer archivo que se encuentra.
MiArchivo = Dir("C:\WINDOWS\*.INI")

' Utiliza otra vez el comando Dir, sin argumentos, para devolver el
' siguiente archivo *.INI situado en el mismo directorio
MiArchivo = Dir

' Devuelve el primer archivo *.TXT que tenga el atributo de oculto.
MiArchivo = Dir("*.TXT", vbHidden)

' Muestra los nombres en C:\ que representan directorios.
MiRuta = "c:\"   ' Establece la ruta.
MiNombre = Dir(MiRuta, vbDirectory)   ' Recupera la primera entrada.
Do While MiNombre <> ""   ' Inicia el bucle.
   ' Ignora el directorio actual y el que lo abarca.
   If MiNombre <> "." And MiNombre <> ".." Then
      ' Realiza una comparación a nivel de bit para asegurarse de que MiNombre es un directorio.
      If (GetAttr(MiRuta & MiNombre) And vbDirectory) = vbDirectory Then
         Debug.Print MiNombre   ' Muestra la entrada 
      End If   ' solamente si representa un directorio.
   End If
   MiNombre = Dir   ' Obtiene siguiente entrada.
Loop