asp 遍历文件夹

{ Posted on 四 13 2010 by admin }
Tags :
Categories : 程序开发 / program
'遍历文件夹
sub ListFolderContents(path)
    dim fs, folder, file, item, url
    set fs = CreateObject("Scripting.FileSystemObject")
    set folder = fs.GetFolder(path)
 
    Response.Write("<li><b>" & folder.Name & "</b> - " & folder.Files.Count & " files, " & folder.SubFolders.Count & " directories." & vbCrLf & "<ul>" & vbCrLf)
 
    for each item in folder.SubFolders
        ListFolderContents(item.Path)
    next
 
    for each item in folder.Files
        Response.Write("<li><a href=""" & MapURL(item.path) & """ target='_blank'>" & item.Name & "</a> - " & item.path & "</li>" & vbCrLf)
    next
 
    Response.Write("</ul>" & vbCrLf)
 
    Response.Write("</li>" & vbCrLf)
 
end sub
 
function MapURL(path)
    MapURL = Replace(Right(path, Len(path) - Len(Server.MapPath("/")))"\""/")
end function
 
ListFolderContents("D:\web\")

Post a Comment