ASP，FSO遍歷目錄及目錄下文件-WEBASP.NET

精彩推薦

分類最新教程

分類熱點教程

ASP，FSO遍歷目錄及目錄下文件

作者：未知

日期：2004-11-01

人氣：

投稿：snow(轉貼)

來源：未知

字體：大中小

收藏：加入瀏覽器收藏

以下正文：

<%@ Language=VBScript %>
<%
　'我寫的一個遍歷目錄以及目錄下文件的函數，
%>
<%
　　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 "<br>---"
　　　　　　　　Response.Write objFile.name
　　　　　　next
　　　　　　Response.Write "<p>"
　　　　　　bianli(nowpath)'遞歸
　　　　　　
　　　　next
　　　　set objFolder=nothing
　　　　set objSubFolders=nothing
　　　　set fso=nothing
　　end function
%>
<%
　　bianli("d:") '遍歷d:盤
%>

相關文章：