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

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 资料来源: