Cita:
Iniciado por juanes222 
Bueno sagutxo, muchas gracias esa información me ha sido de lo mas util, pero tambien quisiera saber como recorrer cada uno de los archivos de una carpeta tomando el nombre y tambien saber cuantos archivos tiene esta carpeta.
Gracias
Mira, en este ejemplo listamos todos los archivos de una carpeta en un control ListBox:
Código:
Private Sub Command1_Click()
Dim sArch As String, sDir As String
' sDir = App.Path ' Directorio de la aplicación
sDir = "C:\Mi carpeta"
sArch = Dir(sDir & "\*.*")
Do While sArch <> ""
List1.AddItem sArch
sArch = Dir
Loop
MsgBox "La carpeta " & sDir & " contiene " & List1.ListCount & " archivos."
End Sub
