filename=dir(drive 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(Scripting.FileSystemObject)
Set f = fs.GetFolder(Drive Letter:/)
Set fc = f.Files
i = 0
For each f1 in fc
array1(i)=f1.name
i=i+1
Next
Source: Bibo Villa Visual Basic http://ctsvb.126.com