读取目录下的文件得到一个数组

　　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