Visualizza il contenuto dei files di una directory

Dim TPath As String
Dim Filename As String
TPath = "C:\Windows\"
Filename = Dir(TPath)
Do While Filename <> ""
Filename = Dir
List1.AddItem TPath & Filename
Loop