Read the files in the directory to get an array

filename=dir("Driver letter:\*.*")
i = 0
do while filename = ""
array1 (i)=filename
i = i + 1
filename = dir("c:\*.*")
loop
There seems to be a better way to VB, but I don't know much about it
VBScript
Set fs = CreateObject("")
Set f = ("Driver letter:\")
Set fc =
i = 0
For Each f1 in fc
array1(i)=
i=i+1
Next

Source: Bibo Villa Visual Basic http://ctsvb.