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

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  

【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:)！