读取目录下的文件得到一个数组
更新时间：2006年10月28日 00:00:00 作者：
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
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
相关文章
用FSO获得图片文件的信息(大小，宽，高)...2006-10-10
利用FSO取得BMP，JPG，PNG，GIF文件信息...2006-10-10
FSO的强大功能...2007-02-02
众所周知，FileSystemObject组件的强大功能及破坏性是它屡屡被免费主页提供商(那些支持ASP)的禁用的原因2006-10-10
文件的读出 编辑 管理...2006-10-10
硬盘文件搜索代码（ASP类）...2006-10-10
使用FSO把文本信息导入数据库...2006-10-10
asp遍历站点所有文件夹的代码...2007-06-06
IE功能汇总...2006-10-10
用ASP+FSO生成JS文件...2006-11-11
最新评论