lista dei file [vb6]

[MissRachele]

ecco cosa mi serve:

dopo aver scelto un cartella con la dir box devo sapere i nomi dei file presenti in una cartella ( e nelle sue sottocartelle...)

come si fa!!!!

[MissRachele]

[quartutek]

per sapere la lista dei file in una cartella ci sono due modi:

uno usi FileSistemObject

dim fso,fs,f1,s
Set Fso = CreateObject("Scripting.FileSystemObject")
Set f = Fso.getfolder(Folder)
Set fs = f.Files
k = 0
For Each f1 In fs
s = f1.Name
k = k + 1
list1.addnew s
Next

Due

usi FileListBox

File1.path = (percorso)
e ti appaiono subito la lista dei file.

[MissRachele]

si funziona grazie mille ma....
...come faccio ad includre i file presenti nelle sottocartelle?
...e per esempio solo alcuni tipi di file (per esempio solo i jpeg)?

[quartutek]

Se vuoi visualizzare solo i files con estensione jpg devi scrivere es.:
"C:\documenti\immagini\*.jpg"

[MissRachele]

certo!!! che scemo... basta che aggiungo *.estensione al percorso

...ma il mio vero e GRANDE problema è quello, una volta selezionata una cartella, visualizzare ANCHE i file contenuti nelle sue sottocartelle.

[quartutek]

il problema si complica un po so dirti solo che con subfolder apri le sotto cartelle dovresti crearti un ciclo però


Dim fso, f, f1, s, sf
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Folder)
Set sf = f.SubFolders
For Each f1 In sf
s = f1.Name
Next