for each item in mydir.files
'依次讀取web目錄下的每個檔案物件
dname=item.path
'讀取每個檔名的完整路徑和檔名
htmfile=replace(dname,mydir&"/","")
'將路完整檔案和名徑中的目錄名替換掉，保留下來的就是純檔名
response.write ""&htmfile&"
"next
%>
例項3；
<%
dim infopath '當前路徑
dim serverpath '伺服器路徑
dim objfso '檔案元件
dim objfile '檔案
dim objfolder '目錄
dim objfoldercontents '所有檔案
dim objfoldercount '臨時陣列變數-資料夾
dim objfileitem '臨時陣列變數-檔案
set objfso=createobject("scripting.filesystemobject") '例項檔案元件
set objfile=objfso.getfile(serverpath) '讀取檔案所在路徑
set objfolder=objfile.parentfolder '根據檔案所在路徑得到上級目錄
set objfoldercontents=objfolder.files '所有檔案付給陣列
response.write ""
response.write "檔名"
response.write "檔案屬性"
response.write "檔案大小"
response.write "更新日期
" for each objfoldercount in objfolder.subfolders '迴圈顯示資料夾
response.write ""&objfoldercount.name&"" '資料夾名稱
response.write ""&objfoldercount.type&"" '資料夾屬性
response.write "" '資料夾大小
response.write ""&objfoldercount.datecreated&"" '時間
next
for each objfileitem in objfoldercontents '迴圈
response.write ""&objfileitem.name&"
" '檔名
response.write ""&objfileitem.type&"" '型別
response.write ""&objfileitem.size&"k" '檔案大小
response.write ""&objfileitem.datelastmodified&"
" '更新日期
next
response.write ""
%>
讀取資料夾中的目錄
import os def list dir file dir f open c users 10107472 desktop ok.txt w 開啟檔案 通過 listdir 得到的是僅當前路徑下的檔名，不包括子目錄中的檔案，如果需要得到所有檔案需要遞迴 print n n listdir pri...
php讀取資料夾內檔案及資料夾
php讀取資料夾內檔案及資料夾 引數 資料夾路徑 dir，格式要求 資料夾名稱後必須有 返回值 含有檔名稱和路徑的一維陣列 function read dir else 進行路徑拼接 allfile array merge file arr,dir arr 拼合陣列 return allfile f...
asp中判斷根資料夾函式
如果指定的資料夾是根資料夾，返回true 否則返回false。object.isrootfolder object應為folder物件的名稱。說明以下 舉例說明如何使用isrootfolder屬性 function displayleveldepth pathspec dim fso,f,n set...