Foros del Web - Ver Mensaje Individual - obtener todos los archivos de una carpeta

Avellaneda · 21-feb-2008, 00:59

Hola, mira con la función Dir

Código:

Dim s As String
s = Dir("C:\Carpeta1\*.mp3")
Do While s <> ""
    List1.AddItem s
    s = Dir
Loop

21-feb-2008, 00:59	#2 (permalink)
Avellaneda Fecha de Ingreso: enero-2008 Ubicación: Unas veces aquí, otras veces allí Mensajes: 1.132	Re: obtener todos los archivos de una carpeta Hola, mira con la función Dir Código: Dim s As String s = Dir("C:\Carpeta1\*.mp3") Do While s <> "" List1.AddItem s s = Dir Loop