[ VBA ] New FileSystemObject

[emerson74]

ciao a tutti,

posso lavorare solo ocn il visual basic editor di excel e cerco di fare un programmino che mi restituisca un elenco di files di una cartella.
purtroppo vba non digerisce questa riga di codice:

Dim fso As New FileSystemObject

mi dice:

Errore di compilazione
Tipo definito dall'utente non definito

[b.lory]

prova cosi...

Dim fso As Object, f As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(percorso, 2, True)

... non ti assicuro che funzioni... non l'ho provato
ciao

[emerson74]

funziona perfettamente!!

con questo codice, grazie al tuo aiuto, scorro i files della cartella visualizzando i nomi in una msgbox, è possibile mettere un filtro per cercare nella cartella solo quelli che hanno estensione txt?

Sub filesinfolder()
Dim fso As Object, cartella As Object
Set fso = CreateObject("Scripting.FileSystemObject")

Set cartella = fso.GetFolder(percorso, 2, True)
Dim i As Integer
i = 0
For Each nomefile In cartella.Files
MsgBox nomefile
Next

grazie infinite