'遞歸算法簡單示例,遞歸遍歷指定目錄下所有文件和子目錄中的文件;
'可以自由引用或修改本代碼，但請保留連接或此註釋;
dir="/" '請設置妳要顯示的目錄,"/"為整站所有文件,"../"為上級目錄下所有文件
set fso = createobject("scripting.filesystemobject")
response.write "指定目錄下所有文件及所有子目錄下文件顯示如下：" & "<br>"
iterate(server.mappath(dir))
function iterate(path)
dim folder, folders, files, file
set folder = fso.getfolder(path)
set files = folder.files
for each file in files
response.write file.path & "<br>"
next
set folders = folder.subfolders
for each f in folders
iterate f.path
next
end function
set fso=nothing
%>