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

网络编程 2024/12/23 佚名

2 0 1

极乐门资源网 Design By www.ioogu.com

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

资料来源：碧波山庄Visual Basic http://ctsvb.126.com

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

标签：