ASP读取文件夹中文件
作者:wang 日期:2009-10-12
<%
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 ""&htmfile&"
"
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 "
"
%>
<%
Dim objFSO,objFolder,objFile,FF '声明 objFSO 变量存放对象实例
FF = Server.MapPath("/")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(ff) Then
Response.write "文件夹 "&ff&" 里所有的文件:
"
Set objFolder = objFSO.GetFolder(ff)
For Each objFile in objFolder.Files
Response.Write objFile.Name & "
"
Next
Else
Response.Write "文件夹"&ff&"不存在,无法读取相关信息!"
End If
Set objFolder = Nothing
Set objFSO = Nothing '释放 FileSystemObject 对象实例内存空间
%>
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 ""&htmfile&"
"
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 "
文件名 | "文件属性 | "文件大小 | "更新日期 |
"&objfoldercount.name&" | " '文件夹名称"&objfoldercount.type&" | " '文件夹属性" '文件夹大小 | "&objfoldercount.DateCreated&" | " '时间
"&objfileitem.name&" | " '文件名"&objfileitem.type&" | " '类型"&objfileitem.size&"k | " '文件大小"&objfileitem.datelastmodified&" |
%>
<%
Dim objFSO,objFolder,objFile,FF '声明 objFSO 变量存放对象实例
FF = Server.MapPath("/")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(ff) Then
Response.write "文件夹 "&ff&" 里所有的文件:
"
Set objFolder = objFSO.GetFolder(ff)
For Each objFile in objFolder.Files
Response.Write objFile.Name & "
"
Next
Else
Response.Write "文件夹"&ff&"不存在,无法读取相关信息!"
End If
Set objFolder = Nothing
Set objFSO = Nothing '释放 FileSystemObject 对象实例内存空间
%>