實現的原理是使用fso和遞歸實現查找指定目錄下某一擴展名的文件
< %
'===========================================
' 函數功能：ASP實現查找指定目錄下的某一擴展名的文件
' 作 者：wangsdong
' 網 站： http://www.ASPprogram.cn
' 參數意義：path為相對路徑，當前目錄使用“.”，上級目錄“..”，
' 下級目錄直接輸入文件夾名，style為擴展名:如ASP,mdb等
' 文章為作者原創，轉載請注明文章出處、保留作者
' 信息，謝謝支持！
'===========================================
Function findfile(path,style)
'創建一個FileSystemObject對象的事例
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
'創建一個Folder對象
foldername=server.mappath(path)
Set MyFolder=MyFileObject.GetFolder(foldername)
'循環顯示其中文件夾
For Each thing in MyFolder.subfolders
if MyFileObject.folderExists(thing) then '判斷folder文件夾是否存在
t2=thing
folder=Replace(thing,foldername&"\","")
t=path&"/"&folder
Call findfile(t,style)
end if
Next
'循環顯示其中文件
For Each thing in MyFolder.Files
if MyFileObject.FileExists(thing) then '判斷folder文件夾是否存在
t2=thing
m=Split(thing,"\")
filename=m(UBound(m))
t0=Split(filename,".")(1)
If t0=style Then
response.write thing&"< BR>"
End if
end if
Next
End Function
Call findfile(".","mdb")
% >
