當前位置:成語大全網 - 新華字典 - ASP對指定文件夾內文件列表顯示

ASP對指定文件夾內文件列表顯示

<%

'遞歸算法簡單示例,遞歸遍歷指定目錄下所有文件和子目錄中的文件;

'可以自由引用或修改本代碼,但請保留連接或此註釋;

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

%>