|
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
来源:upschool.com.cn
作者:
关键字：VB,Script,怎样读取一,目录下,所有文件名到数组,VB用dir
发表日期：2005-10-28  网页显示有限 阅读全文请下载本文完整版WORD文档上一篇：在ASP中执行Server端命令行的方法... 下一篇：关于ASP图象问题的总结
2009-1-8 22:01:26
| 
