filename=dir("盘符:\*.*")i=0dowhilefilename=""array1(i)=filenamei=i+1filename=dir("c:\*.*")loopVB好象也有比较好的方法，但是我不太清楚了VBScriptSetfs=CreateObject("Scripting.FileSystemObject")Setf=fs.GetFolder("盘符:\")Setfc=f.Filesi=0ForEachf1infcarray1(i)=f1.namei=i+1Next...