Loop - do sui file di una directory

[nekke]

Ho idea di prendere dei file vari txt e metterli su db, ma i file sono più di uno e di diverso nome come faccio a farli caricare con un do loop?

[Galex]

Set Fso = CreateObject("Scripting.FileSystemObject")
Set folder = Fso.GetFolder(PATH)

For Each Item In folder.files

sql="INSERT INTO tabella Nomefile = '"&item.Name&"'"
ConnDB.Execute(sql)

Next
Set Fso = Nothing
Set folder = Nothing

[nekke]

Grazie mille