Foros del web, para los que viven de bits

vbusser · 20-feb-2008, 20:20

Hola mi consulta es la siguiente:

Obetener una lista de todos los archivos en una carpeta especifica , por ejemplo en C:/carpeta1 y que ademas esta lista sea guardada en un list por ejemplo pero solo guardando el nombre del archivo, y que solo sean de un tipo..por ejemplo "*.mp3"

ejemplo: en la carpeta
C:/carpeta1 encontro

C:/carpeta1/cancion1.mp3
C:/carpeta1/cancion2.mp3
C:/carpeta1/cancion3.mp3

pero que las guarde en la lista solo como
cancion1.mp3
cancion2.mp3
cancion3.mp3

Avellaneda · 20-feb-2008, 23: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

vbusser · 21-feb-2008, 12:26

muchas gracias, justo lo que buscaba

20-feb-2008, 20:20	#1 (permalink)
vbusser Fecha de Ingreso: febrero-2008 Mensajes: 4	obtener todos los archivos de una carpeta Hola mi consulta es la siguiente: Obetener una lista de todos los archivos en una carpeta especifica , por ejemplo en C:/carpeta1 y que ademas esta lista sea guardada en un list por ejemplo pero solo guardando el nombre del archivo, y que solo sean de un tipo..por ejemplo "*.mp3" ejemplo: en la carpeta C:/carpeta1 encontro C:/carpeta1/cancion1.mp3 C:/carpeta1/cancion2.mp3 C:/carpeta1/cancion3.mp3 pero que las guarde en la lista solo como cancion1.mp3 cancion2.mp3 cancion3.mp3

20-feb-2008, 23:59	#2 (permalink)
Avellaneda Fecha de Ingreso: enero-2008 Ubicación: Madrid Mensajes: 669	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

21-feb-2008, 12:26	#3 (permalink)
vbusser Fecha de Ingreso: febrero-2008 Mensajes: 4	Re: obtener todos los archivos de una carpeta muchas gracias, justo lo que buscaba

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado