海南世纪云图网络科技有限公司
咨询热线:400-822-8458 技术支持:0898-66754910 客户服务:0898-32183600

Asp遍历文件夹内的内容[支持JPG,GIF,MDB等所有文件]

发表于:2011-03-13 00:00:00来源:Hneyang.Com人气:2276

<%
 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\")
 
  %>

文章整理: 世纪云图  https://www.yuntop.cc/

以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

版权申明:本站文章部份来自网络,如有侵权,请联系我们,我们收到后立即删除,谢谢!

特别注意:本站部份转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有。

微信
网站建设
软件业务
网络营销
400电话