obtener todos los archivos de una carpeta

[vbusser]

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]

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]

muchas gracias, justo lo que buscaba