很多以前寫的,可以遍歷指寫碟符下的所有檔案,以目錄的形式顯示出來,且資料夾用紅色粗體顯示.
最後還統計總檔案的個數,所佔空間等等.
<%
dim check_t
check_t=0
dim tab_symbol
tab_symbol=" |"
dim afiles,afolder,afilesize
afiles=0
afolder=0
afilesize=0
function pl(path) '該函式列印指定驅動器下的所有檔案及所有資料夾下的內容
dim objfolder
dim objfolders
dim objsubfolders
dim objsubfolder
dim objfiles
dim objfile
dim fso
set fso=server.createobject("scripting.filesystemobject")
on error resume next
set objfolders=fso.getfolder(path)'建立資料夾物件
set objsubfolders=objfolders.subfolders '建立子資料夾物件
'response.write ""&path&"
"'列印碟符根目錄下的檔案
'response.write "根目錄下：
"check_t=check_t+1
afolder=afolder+1
'response.write ""&check_t&""
if check_t=1 then
response.write "根目錄下：
"response.write "|---
"for each objfile in objfolders.files
response.write tab_symbol&"-"&objfile.name&"
"afiles=afiles+1
afilesize=afilesize+objfile.size
next
end if
'列印碟符根目錄下的子目錄及子目錄下的檔案
for each objsubfolder in objsubfolders
if objsubfolder.name="_vti_cnf" then
else
if check_t>1 then
tab_symbol=" "&tab_symbol
end if
nowpath=path+"\"+objsubfolder.name
nowpatht=split(nowpath,"\")
'if then
'tab_symbol=
'end if
response.write tab_symbol&"---"&nowpatht(ubound(nowpatht))&"
"set objfiles=objsubfolder.files
for each objfile in objfiles
afiles=afiles+1
afilesize=afilesize+objfile.size
response.write " "&tab_symbol&"-"&objfile.name&"
"next
pl(nowpath)
end if
next
set objsubfolders=nothing
set objfolders=nothing
set fso=nothing
tab_symbol=" |"
'response.write ""&check_t&""
end function
function pladrivers() '列印硬碟中所有的檔案
dim fsod
dim driver
set fsod=server.createobject("scripting.filesystemobject")
for each driver in fsod.drives
response.write "當前盤為："&driver&"
"%>
遞迴獲取指定碟符下的所有檔案及資料夾
遞迴獲取指定碟符下的所有檔案及資料夾 存在部分資料夾訪問許可權問題 string path g string filter private static void parsedirectory string path,string filter 獲取指定資料夾中指定的內容 string files ...
python 快速遍歷路徑下的所有檔案
利用os 庫遍歷資料夾內的所有檔案 假設是最後一級目錄資料夾，即 daygoodscate color 資料夾內不再包含資料夾 import os import pandas as pd inputdir users zhyueln data daygoodscate color for root,...
Delphi下遍歷資料夾下所有檔案的遞迴演算法
在實際開發中經常需要遍歷某個資料夾及其子資料夾下的檔案，看到很多人不知道如何做，忍不住寫段東西與大家分享。procedure maketree var slfile tstrings const fileext string var sr tsearchrec err integer trsize,...