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
