发信人: dongbao()
整理人: netyum(2002-07-23 19:01:35), 站内信件
|
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
--
ICQ:43395237 OICQ:126132
我自豪我用正版，我骄傲我用盗版！！！
※ 来源:．月光程序代码网 http://www.moon-soft.com．[FROM: 202.108.5.134]
|
|