Ciao a tutti,
qualcuno sa dirmi perchè non va...


deve cercare tutti i file dentro la cartella con estensione .jpg e poi elencarli dentro una ListBox

codice:
Private Sub Command1_Click()
estensione = "jpg"
Thefile$ = Dir$("D:\Foto*." & estensione)
While Thefile$ <> ""
    Thefile$ = Dir$
    ' scrivi in una listbox ad esempio
    List1.AddItem Thefile$
Wend

End Sub
grazie mille