Enumerar todos los archivos

[^_^]

Saludos, bueno necesito que alguien me diga como puedo enumerar los archivos de cualquier carpeta que quiera, escuche mas o menos sobre las APIs FindFirstFile, etc.. y busque ejemplos de ella en google, pero lo que encontre no lo entendi mucho depaso de que eran unos codes demasiado largos.

Pues queria saber si alguein me daba un ejemplo "sencillo" de como usar esas APIs o me da otro metodo para poder enumerar los archivos de una carpeta, gracias! ..

[BlackZeroX]

solo te dejo este links, las apis hay estan con un ejemplo.

http://allapi.mentalis.org/apilist/f.shtml

Dulces Lunas

[burbu_1]

hola,
tambien puedes poner un control FileListBox, eliges la carpeta que quieres con file1.path, y recorres los archivos

Código [Seleccionar] Expandir


Dim i As Integer
Private Sub Form_Load()
'eliges la carpeta
File1.Path = InputBox("Escribe la ruta de la carpeta")
'y recorres los archivos del filelistbox
If File1.ListCount <> 0 Then
    For i = 0 To File1.ListCount - 1
        MsgBox File1.List(i)
    Next i
Else
    MsgBox "no hay archivos"
End If
End Sub


saludos

[Dessa]

otra opción

Código [Seleccionar] Expandir



Dim archivos As String
archivos = Dir("C:\Windows\")

While archivos <> ""
  MsgBox archivos
  archivos = Dir
Wend



S2

[BlackZeroX]

el dir() se me pasa por alto, igual con, es mas facil xP

[Dessa]

Si Black, Dir es solo otra opcion, depende el caso, a veces es mas practico y a veces no tanto.

S2