[VB6] scansione cartella

[yyzyyz]

ciao, kome posso comportarmi x fare una scansione di una determinata cartella es. c:\z , dove al suo interno sono contenuti dei file di testo es. 1.txt 2.txt 3.txt ke dovono essere messi in una listbox oppure in una treeview?
:master:

[tas]

Usa il FileSystemObject:

    Dim fso As New FileSystemObject
    Dim fd As Folder
    Dim fl As File

    Set fd = fso.GetFolder("c:\")
    
    For Each fl In fd.Files
        List1.AddItem fl.Name
    Next

[yyzyyz]

grazie tas, ke riferimenti devo usare x il FileSystemObject ?

.... nn ricordo

[yyzyyz]

ok funziona ma se volessi mettere solo i file.txt , insomma filtrare i file ke devo inserire nella listbox?

[yyzyyz]

risolto , grazie ankora tas.

Set fd = fso.GetFolder("c:\")
For Each fl In fd.Files
    ext = Right(fl.Name, 3)
    If ext = "mdb" Then List1.AddItem fl.Name
Next

[meronet]

e se volessimo far scegliere all' utente la cartella da scandire !!!

[yyzyyz]

nn penso ci voglia molto il codice è molto semplice, basta modificare :

Set fd = fso.GetFolder("c:\")

in

Set fd = fso.GetFolder(app.path)

oppure

Set fd = fso.GetFolder(miopercorso)