海南(nán)世紀雲圖網絡科技有限公司
咨詢熱線:400-822-8458 客戶服務:0898-32183600

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

發表于:2011-03-13 00:00:00來源:Hneyang.Com人氣:3001

<%
 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/

以上信息與文章正文是不可分(fēn)割的一(yī)部分(fēn),如果您要轉載本文章,請保留以上信息,謝謝!

版權申明:本站文章部份來自網絡,如有侵權,請聯系我(wǒ)們,我(wǒ)們收到後立即删除,謝謝!

特别注意:本站部份轉載文章言論不代表本站觀點,本站所提供的攝影照片,插畫,設計作品,如需使用,請與原作者聯系,版權歸原作者所有。

微信
網站建設
軟件業務
網絡營銷
400電話(huà)