asp实现遍历目录以及目录下所有文件代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】 asp实现遍历目录以及目录下所有文件

作者:Dezai.CN / 发布于2011/6/27/ 1261

<div>
<%
function bianli(path)<font color="#0909f7">'建立一个名为bianli的函数，并带有一个名为path的参数，以后调用函数时，会把指定的路径付给Path变量</font>
set fso=server.CreateObject("scripting.filesystemobject") <font color="#0000ff">'将FSO变量指定成文件管理对像</font>
<font face="Times New Roman">on error resume next<font color="#0000ff">'如果程序运行中出现错误自动忽略</font>
set objFolder=fso.GetFolder(path)</font>
<font face="Times New Roman">set objSubFolders=objFolder.Subfolders</font>
<font face="Times New Roman">for each objSubFolder in objSubFolders </font>
<font face="Times New Roman">nowpath=path "\" objSubFolder.name</font>
<font face="Times New Roman">Response.Write nowpath</font>
<font face="Times New Roman">set objFiles=objSubFolder.Files</font>
<font face="Times New Roman">for each objFile in objFiles</font>
<font face="Times New Roman"><font color="#0938f7">'这一部分红色代码可根据您的需要进行修改，这里我们只是在屏幕上显示出来文件名</font>
<font color="#ff0000">Response.Write ""
Response.Write objFile.name</font></font><font face="Times New Roman">
next</font>
<font face="Times New Roman">
bianli(nowpath)</font>
<font face="Times New Roman">next 
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function
%>
<%</font>
<font face="Times New Roman">pt=<font face="Times New Roman">Server.MapPath("\")'这里的引号中的部分是指定要遍历的服务器上的文件夹,例子中为你网站的根目录</font>
bianli(pt) 
%></font>
<strong><font color="#990000">提示：</font></strong>
<font color="#000000">１、在调用函数时可以写上服务器的物理路径，</font>bianli("c:\") 就是遍历服务器C盘中所有文件，但是注意的是，现在的虚拟主机都对用户文件管理权限做了限定，用户只能管理操作自己虚拟主机中的目录以及文件，所以，最好用<font face="Times New Roman">Server.MapPath("")这个函数来实现网站路径与服务器物理路径间的转换。</font>

２、在红色部分，您可以根据您自己的需要对遍历到的文件进行相应的处理，也可增加条件代码来对部分类型的文件进行遍历。
</div>

试试其它关键字

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)