VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VBScript怎样读取一个目录下的所有文件名到数组
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:12874, 日期:2001-07-27
VBScript怎样读取一个目录下的所有文件名到数组


VB/Script 怎样读取一个目录下的所有文件名到数组? 关键词:VBScript, ASP 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