读取目录下的文件得到一个数组 - 中国WEB开发者网络 (http://www.webasp.net) -- 技术教程 (http://www.webasp.net/article/) --- 读取目录下的文件得到一个数组 (http://www.webasp.net/article/1/553.htm) |
| -- 作者：未知 -- 发布日期： 2003-04-15 |
| 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 |
| webasp.net |