Mettere nomi file in un Array

[fosforo]

Ciao a tutti
Vorrei mettere i nomi dei file presenti in una cartella in un Array.
Ho scritto questo ma non funziona:

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder( path )
Dim NomeFileDisk()

' pulisco la stringa
string = ""

totfile=0
For Each file in folder.Files
string = file.name

NomeFileDisk (totfile) = string
totfile = totfile +1
Redim Preserve NomeFileDisk (totfile)
Next


Grazie dell'aiuto

[optime]

fosforo, a "non funziona" si risponde "ci sarà un motivo". se sei meno generico tu, siamo meno generici noi