ASP讀取文件夾中文件
dim fso,mydir,dname
Set Fso=server.createobject("Scripting.FileSystemObject")
set mydir=fso.getfolder(server.mappath("/AsaiWeb"))
for each item in mydir.files
'依次讀取web目錄下的每個文件對象
dname=item.path
'讀取每個文件名的完整路徑和文件名
htmfile=replace(dname,mydir&"\","")
'將路完整文件和名徑中的目錄名替換掉，保留下來的就是純文件名
response.write "<a href=""&server.URLEncode(htmfile)&"" target=_blank>"&htmfile&"</a><br>"
next
%>

<%  
Option Explicit  
dim infopath                       '當(dāng)前路徑  
dim serverpath                   '服務(wù)器路徑  
dim objfso                           '文件組件  
dim objfile                         '文件  
dim objfolder                     '目錄  
dim objfoldercontents     '所有文件
dim objfoldercount           '臨時數(shù)組變量-文件夾
dim objfileitem                 '臨時數(shù)組變量-文件
infopath=request.servervariables("path_info")         '得到文件相對路徑
serverpath=server.mappath(infopath)                                     '得到文件絕對路徑
  
set objfso=createobject("scripting.filesystemobject")         '實例文件組件
set objfile=objfso.GetFile(serverpath)                                       '讀取文件所在路徑
set objfolder=objfile.parentfolder                                               '根據(jù)文件所在路徑得到上級目錄
set objfoldercontents=objfolder.files                                         '所有文件付給數(shù)組  
response.write "<table width=100% border=0><tr>"  
response.write "<td>文件名</td>" 
response.write "<td>文件屬性</td>"  
response.write "<td>文件大小</td>"  
response.write "<td>更新日期</td></tr>"  
  
  
for each objfoldercount in objfolder.subfolders                     '循環(huán)顯示文件夾  
response.write "<tr><td><a href=?path="&objfoldercount.name&">"&objfoldercount.name&"</td>"     '文件夾名稱  
response.write "<td>"&objfoldercount.type&"</td>"                   '文件夾屬性  
response.write "<td></td>"                                                             '文件夾大小  
response.write "<td>"&objfoldercount.DateCreated&"</td>"     '時間  
next 
  
for each objfileitem in objfoldercontents                                 '循環(huán)
response.write "<tr><td><a href="&objfileitem.name&">"&objfileitem.name&"</a></td>"               '文件名
response.write "<td>"&objfileitem.type&"</td>"             '類型
response.write "<td>"&objfileitem.size&"k</td>"           '文件大小
response.write "<td>"&objfileitem.datelastmodified&"</td></tr>"           '更新日期
next  
response.write "</table>" 
%>

<%
Dim objFSO,objFolder,objFile,FF '聲明 objFSO 變量存放對象實例
FF = Server.MapPath("/")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(ff) Then
Response.write "文件夾 "&ff&" 里所有的文件：<br>"
Set objFolder = objFSO.GetFolder(ff)
For Each objFile in objFolder.Files
Response.Write objFile.Name & "<br>"
Next
Else
Response.Write "文件夾"&ff&"不存在，無法讀取相關(guān)信息！"
End If
Set objFolder = Nothing
Set objFSO = Nothing '釋放 FileSystemObject 對象實例內(nèi)存空間
%>
</body></html>

Folder對象
method
FSO.GetAbsolutePathName 接受參數(shù)folderpath,返回folderpath文件夾的絕對路徑
FSO.BuildPath接受字符串參數(shù)path,name.在現(xiàn)有路徑path上增加name文件（夾）
property
Folder.Files 返回文件夾下所有文件的File對象集合
Folder.SubFolders返回所有子文件夾Folder對象集合
Folder.Path返回文件夾的絕對路徑
Folder.Name文件夾名
File對象
method
FSO.GetBaseName接受參數(shù)filename，返回字符串filename指定的全路徑名，但是去掉文件后綴名
FSO.GetExtensionName,接受參數(shù)filename,返回filename指定文件的后綴名
FSO.GetFile接受參數(shù)filename,返回字符串filename指定的文件file對象
FSO.GetFileName接受參數(shù)filename,返回字符串filename指定的文件路徑
FSO.GetTempName返回一個隨機產(chǎn)生的文件名
property
File.DateCreated文件的創(chuàng)建日期和時間
File.DateLastModified最后一次修改該文件的日期和時間
File.DateLastAccessed最后一次訪問該文件的日期和時間
File.Name具有讀寫屬性，文件的名字
File.ParentFolder該文件的父文件夾的Folder對象
File.Path返回文件的絕對路徑，可使用長文件名
File.ShortName返回DOS風(fēng)格的8.3形式的文件名
File.ShortPath返回DOS風(fēng)格的8.3形式的文件絕對路徑
File.Size文件的大小
File.Type文件類型的說明字符串

該文章在 2011/4/21 22:01:12 編輯過