VB/Script 怎样读取一个目录下的所有文件名到数组? VB用dir，VBScript用files集合

答案：Example:
VB
filename=dir("c:\*.*")
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("c:\")    
Set fc = f.Files 
i = 0   
For Each f1 in fc
array1(i)=f1.name         
i=i+1
Next
  

上一个：生蛋节礼物一分。
下一个：关于ASP图象问题的总结