filename=dir("盘符:*.*")

i = 0

do while filename = ""

array1 (i)=filename

i = i + 1

filename = dir("c:*.*")

loop

VB好象也有比较好的方法，但是我不太清楚了

VBScript

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFolder("盘符:")

Set fc = f.Files

i = 0

For Each f1 in fc

array1(i)=f1.name

i=i+1

Next

资料来源：碧波山庄Visual Basic http://ctsvb.126.com