Asp遍历文件夹内的内容[支持JPG,GIF,MDB等所有文件]-% sub ListFolderContents(path) dim fs, folder, file, item, url &nb...

海南网站建设,网页设计
记忆工作中的点滴
首页>> Asp技术 >>Asp遍历文件夹内的内容[支持JPG,GIF,MDB等所有文件]

<%
 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 & " 文件,<ul>" & vbCrLf)
    for each item in folder.SubFolders
        ListFolderContents(item.Path)
    next
   
    for each item in folder.Files
 
'如果需要链接文件
'<a href=""" & MapURL(item.path) & """ target='_blank'>" & item.Name & "</a>
'实际路径:" & item.path & "
        Response.Write("<li><b>../EyDataBase_Backup/" & item.Name & "</b></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("F:\WebCmsByLwp\EyDataBase_Backup\")
 
  %>


×

感谢您的支持,我们会一直保持!

扫码支持
请土豪扫码随意打赏

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

打赏作者
版权所有,转载注意明处:不懂戀愛魚兒 » Asp遍历文件夹内的内容[支持JPG,GIF,MDB等所有文件]
标签: asp

发表评论

路人甲 表情
看不清楚?点图切换 Ctrl+Enter快速提交

网友评论(0)