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                       '当前路径  
dim serverpath                   '服务器路径  
dim objfso                           '文件组件  
dim objfile                         '文件  
dim objfolder                     '目录  
dim objfoldercontents     '所有文件
dim objfoldercount           '临时数组变量-文件夹
dim objfileitem                 '临时数组变量-文件
infopath=request.servervariables("path_info")         '得到文件相对路径
serverpath=server.mappath(infopath)                                     '得到文件绝对路径
  
set objfso=createobject("scripting.filesystemobject")         '实例文件组件
set objfile=objfso.GetFile(serverpath)                                       '读取文件所在路径
set objfolder=objfile.parentfolder                                               '根据文件所在路径得到上级目录
set objfoldercontents=objfolder.files                                         '所有文件付给数组  
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                     '循环显示文件夹  
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                                 '循环
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&"不存在，无法读取相关信息！"
End If
Set objFolder = Nothing
Set objFSO = Nothing '释放 FileSystemObject 对象实例内存空间
%>
</body></html>

Folder对象
method
FSO.GetAbsolutePathName 接受参数folderpath,返回folderpath文件夹的绝对路径
FSO.BuildPath接受字符串参数path,name.在现有路径path上增加name文件（夹）
property
Folder.Files 返回文件夹下所有文件的File对象集合
Folder.SubFolders返回所有子文件夹Folder对象集合
Folder.Path返回文件夹的绝对路径
Folder.Name文件夹名
File对象
method
FSO.GetBaseName接受参数filename，返回字符串filename指定的全路径名，但是去掉文件后缀名
FSO.GetExtensionName,接受参数filename,返回filename指定文件的后缀名
FSO.GetFile接受参数filename,返回字符串filename指定的文件file对象
FSO.GetFileName接受参数filename,返回字符串filename指定的文件路径
FSO.GetTempName返回一个随机产生的文件名
property
File.DateCreated文件的创建日期和时间
File.DateLastModified最后一次修改该文件的日期和时间
File.DateLastAccessed最后一次访问该文件的日期和时间
File.Name具有读写属性，文件的名字
File.ParentFolder该文件的父文件夹的Folder对象
File.Path返回文件的绝对路径，可使用长文件名
File.ShortName返回DOS风格的8.3形式的文件名
File.ShortPath返回DOS风格的8.3形式的文件绝对路径
File.Size文件的大小
File.Type文件类型的说明字符串

该文章在 2011/4/21 22:01:12 编辑过