ASP使用fso遍历文件及文件夹列出文件名
时间:2008-10-27 19:32:00
调用bianli()函数,这里是遍历F:盘,bianli("F:\")'这里设置文件夹路径,你可以改为其它文件夹路径。
<%@ Language=VBscrīpt
function bianli(path)
dim fso 'fso对象
dim objFolder '文件夹对象
dim objSubFolders '子文件夹集合
dim objSubFolder '子文件夹对象
dim objFiles '文件集合
dim objFile '文件对象
set fso=CreateObject("scrīpting.filesystemobject")
on error resume next
set ōbjFolder=fso.GetFolder(path)'创建文件夹对象
set ōbjSubFolders=objFolder.Subfolders'创建的子文件夹对象
for each objSubFolder in objSubFolders
nowpath=path + "\\" + objSubFolder.name
Response.Write nowpath
set ōbjFiles=objSubFolder.Files
for each objFile in objFiles
Response.Write "<br>---"
Response.Write objFile.name
next
Response.Write "<p>"
bianli(nowpath) '调用递归
next
set ōbjFolder=nothing
set ōbjSubFolders=nothing
set fso=nothing
end function
bianli("F:\")
%>
遍历某文件夹下文件,并输出为XML
<%@ Language=VBscrīpt %>
<%
Response.contentType = "application/xml"
Response.Expires = 0
function bianli(path)
dim fso 'fso对象
dim objFolder '文件夹对象
dim objFiles '文件集合
dim objFile '文件对象
set fso=CreateObject("scrīpting.filesystemobject")
on error resume next
set ōbjFolder=fso.GetFolder(path)'创建文件夹对象
Response.Write "<?xml version=""1.0"" encoding=""GB2312""?>"
Response.Write ("<swf>")
set ōbjFiles=objFolder.Files
for each objFile in objFiles
Response.Write ("<swf game='"&objFile.name&"'/>")
next
Response.Write ("</swf>")
set ōbjFolder=nothing
set ōbjSubFolders=nothing
set fso=nothing
end function
%>
<%
bianli(Server.MapPath("/")+"\pic") '调用bianli()函数,这里是遍历当前目录下的pic文件夹
%>
标签:fso,文件夹,文件,组件,asp
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
学ASP应该注意ASP程序书写的规范标准
2008-10-17 10:16:00
js全选/全不选/反选 checkbox代码
2008-03-18 13:00:00
质量更好的tags标签效果
2008-06-04 12:24:00
![](https://img.aspxhome.com/file/UploadPic/20086/4/css-tags_35s.gif)
发一个较复杂的字符串截取函数
2009-12-08 16:23:00
CSS经验:因为编码差异 导致IE6不能正常解析CSS文件
2010-06-06 13:55:00
我的ImageMagick使用心得
2008-10-21 11:05:00
![](https://img.aspxhome.com/file/UploadPic/200810/21/20081021122020655s.jpg)
CSS元素类型
2009-04-27 12:25:00
如何禁止搜索引擎收录你的网站
2008-10-20 12:57:00
asp如何直接调用后台存储过程?
2010-06-28 18:27:00
2007淘宝UED招聘题解(前端开发部分)
2007-11-24 10:32:00
javascript阻止事件冒泡和浏览器的默认行为
2007-12-28 13:13:00
用javascript实现Base64编码
2008-03-04 16:51:00
12个对网页设计师非常有用的图片优化工具[译]
2009-09-22 14:29:00
![](https://img.aspxhome.com/file/UploadPic/20099/22/smush-it-14s.jpg)
改变链接,让别人永远找不到你的程序
2008-09-13 18:57:00
JavaScript版俄罗斯方块Easy Tetris实现原理
2009-07-16 10:25:00
![](https://img.aspxhome.com/file/UploadPic/20097/16/i2009621214419-26s.jpg)
使用css2.1实现多重背景、多重边框效果[译]
2010-08-23 16:32:00
![](https://img.aspxhome.com/file/UploadPic/20108/23/css2-multiple-background-border-model-12s.png)
互联网一家之言(一):叫用户为你买单
2009-06-09 11:32:00
![](https://img.aspxhome.com/file/UploadPic/20096/9/qqe688aae59bbee69caae591bde5908d1-49s.jpg)
IE8 的 JSON 解析 Bug
2009-05-22 12:36:00
asp HTTP_X_FORWARDED_FOR和REMOTE_ADDR
2010-07-02 12:33:00
Dreamweaver MX新功能试用:连续空格
2008-01-06 21:03:00
![](https://img.aspxhome.com/file/uploadpic/20072/200723113527171.jpg)