日韩中文理论片,婷婷六月国产精品久久不卡,婷婷精品进入

!-- 遍歷站點所有文件夾 -->
style>
!--
body{font-size:12px;}
-->
/style>
script language="vbscript">
!--
sub fsubmit()
form1.submit
End sub
-->
/script>
form name="form1" method="post" action="findfolder.asp">
select size="1" name="fpath" onchange="fsubmit()">
option value="0" selected>--請選擇--/option>
option value="/">整個站點/option>
option value=".">當前目錄/option>
%
Dim fso,objfolder,objfile,strpath
set fso=server.createobject("Scripting.FileSystemObject")

strpath="."
call bl(strpath)

function bl(strpath)
set objfolder=fso.getfolder(server.mappath(strpath))

for each objsubfolder in objfolder.subfolders
Response.write "option value='"  strpath  "\"  objsubfolder.name  "'>"  replace(strpath,".","")  "\"  objsubfolder.name  "/option>"
call bl(strpath  "\"  objsubfolder.name)
next

End function
%>
/select>
/form>

%
fpath=Request.form("fpath")

if fpath>"0" and fpath>Empty then

Response.write "font color=""#FF0000"">當前文件夾："  replace(fpath,".","")  "/font>br>br>"

set objfolder=fso.getfolder(server.mappath(fpath))

for each objsubfolder in objfolder.subfolders
Response.write "子文件夾名稱:"  objsubfolder.name  "br>"
next

Response.write "br>"

for each objfile in objfolder.files
Response.write "文件名稱："  objfile.name  "br>"
next

set objfolder=nothing

End if
%>

您可能感興趣的文章:

js+FSO遍歷文件夾下文件并顯示
asp.net遍歷目錄文件夾和子目錄所有文件
php 遍歷顯示文件夾下所有目錄、所有文件的函數(shù)，沒有分頁的代碼
php實現(xiàn)的遍歷文件夾下所有文件,編輯刪除
使用PHP遍歷文件夾與子目錄的函數(shù)代碼
深入探討:linux中遍歷文件夾下的所有文件
PHP遍歷某個目錄下的所有文件和子文件夾的實現(xiàn)代碼
php遍歷目錄與文件夾的多種方法詳解
c#遞歸遍歷文件夾示例
C++遍歷文件夾獲取文件列表

標簽：昆明溫州鐵嶺咸陽家電維修昌都麗江泰州

巨人網(wǎng)絡通訊聲明：本文標題《asp遍歷站點所有文件夾的代碼》，本文關鍵詞 asp,遍歷,站點,所有,文件夾,；如發(fā)現(xiàn)本文內容存在版權問題，煩請?zhí)峁┫嚓P信息告之我們，我們將及時溝通與處理。本站內容系統(tǒng)采集于網(wǎng)絡，涉及言論、版權與本站無關。

校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

asp遍歷站點所有文件夾的代碼