[VB6] Cercare file

[Francesco_76]

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

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

[mcathor]

Inverti!
While Thefile$ <> ""
' scrivi in una listbox ad esempio
List1.AddItem Thefile$
Thefile$ = Dir$
Wend

[Francesco_76]

Grazie mille ho già risolto cosi

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

adesso è giunto un'altro piccolo problemino una volta che le visualizzo tutte dentro la list box, ho provato a caricarle cosi:

Private Sub List1_Click()
Picture1.Picture = LoadPicture("D:\Foto\" & Thefile$)

End Sub

ma non funziona

perchè?? :master:

[mcathor]

Attenzione a quello che fai!
Quello che hai scritto per caricare le immagini all'interno del list salta la prima immagine! inverti i due comandi!
Per quanto riguarada il loadpicture è così:
Picture1.Picture = LoadPicture("D:\Foto\" & List1.Text)

[Francesco_76]

:master: AVEVI RAGIONE!!

adesso funziona benissimo :mavieni:

l'unica cosa se non chiedo troppo...

quando carico la foto non so di che dimensione sia, come faccio a mettere degli scroll??


grazie mille

[mcathor]

non hai bisogno di scroll! Imposta la proprietà autosize del picture a true
Ciao e buon divertimento

[Francesco_76]

Grazie mille

[Francesco_76]

voglio fare di piu se ti va leggi qui

grazie cmq, sei stato gentilissimo