| 读取目录下的文件得到一个数组 |
| 日期：2000年9月8日 作者： 人气： [大
中 小]
|
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 （出处：） |
| 相关文章： |
|
|
|
| 相关软件： |
|
|
|
|
|
|
| 说明：本站部分内容收集于网络，如有侵犯您的权益请来信告知，我们会第一时间进行处理，谢谢 |
开发者网络 
