爱华网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 "<ahref=""&server.URLEncode(htmfile)&""target=_blank>"&htmfile&"</a><br>"
next
%>
<%
OptionExplicit
diminfopath'当前路径
dimserverpath'服务器路径
dimobjfso'文件组件
dimobjfile'文件
dimobjfolder'目录
dimobjfoldercontents'所有文件
dimobjfoldercount'临时数组变量-文件夹
dimobjfileitem'临时数组变量-文件
infopath=request.servervariables("path_info")'得到文件相对路径
serverpath=server.mappath(infopath)'得到文件绝对路径
setobjfso=createobject("scripting.filesystemobject")'实例文件组件
setobjfile=objfso.GetFile(serverpath)'读取文件所在路径
setobjfolder=objfile.parentfolder'根据文件所在路径得到上级目录
setobjfoldercontents=objfolder.files'所有文件付给数组
response.write"<tablewidth=100%border=0><tr>"
response.write"<td>文件名</td>"
response.write"<td>文件属性</td>"
response.write"<td>文件大小</td>"
response.write"<td>更新日期</td></tr>"
foreachobjfoldercountinobjfolder.subfolders'循环显示文件夹
response.write"<tr><td><ahref=?path="&objfoldercount.name&">"&objfoldercount.name&"</td>"'文件夹名称
response.write"<td>"&objfoldercount.type&"</td>"'文件夹属性
response.write"<td></td>"'文件夹大小
response.write"<td>"&objfoldercount.DateCreated&"</td>"'时间
next
foreachobjfileiteminobjfoldercontents'循环
response.write"<tr><td><ahref="&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文件类型的说明字符串
