DUVIDA - Listar Arquivos em VBs

[gtfs]

Preciso listar arquivos de uma pasta, usando FSO, e o software que preciso usar é muito limitado, num funciona nem DIR, o unico codigo que funcionou foi este, porém ele lista pastas, e não arquivos. Alguem sabe altera-lo para listar arquivos no lugar de pastas?

obrigado

____________________________________________

Sub OnClick(Byval Item)

Dim fso

Dim SubPasta

Dim x, y

Set fso = CreateObject("Scripting.FileSystemObject")

For Each SubPasta In fso.GetFolder("C:\").SubFolders

MsgBox SubPasta.Name

Next

Set SubPasta = Nothing

Set fso = Nothing

End Sub

[gtfs]

Consegui, não sei por qual motivo, mudar o subfolders para files não estava funcionando, mas agora funcionou

valeu

[EduardoS]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.