遍历目录以及目录下文件的函数代码,ASP代码库,德仔网

代码语言

代码分类

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

<div>
<%@ Language=vbscript %> 
<% 
'<font color="#ff0000">遍历目录以及目录下文件的函数 
</font>%> 
<% 
Function Bianli(path) 
Set Fso=server.createobject("scripting.filesystemobject")
On Error Resume Next 
Set Objfolder=fso.getfolder(path) 

Set Objsubfolders=objfolder.subfolders 

For Each Objsubfolder In Objsubfolders 

Nowpath=path + "\" + Objsubfolder.name 

Response.write Nowpath
Set Objfiles=objsubfolder.files
For Each Objfile In Objfiles 
Response.write "---" 
Response.write Objfile.name 
Next 
Response.write "" 
Bianli(nowpath)'递归 

Next 
Set Objfolder=nothing 
Set Objsubfolders=nothing 
Set Fso=nothing 
End Function 
%> 
<% 
Bianli("D:") '遍历d:盘 
%>
</div>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　遍历目录　

同语言下

可能有用的

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