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 ""&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     ""  
response.write     "文件名"  
response.write     "文件属性"  
response.write     "文件大小"  
response.write     "更新日期"  
  
  
for     each     objfoldercount     in     objfolder.subfolders                     '循环显示文件夹  
response.write     ""&objfoldercount.name&""     '文件夹名称  
response.write     ""&objfoldercount.type&""                   '文件夹属性  
response.write     "       "                                                             '文件夹大小  
response.write     ""&objfoldercount.DateCreated&""     '时间  
next  
  
  
for     each     objfileitem     in     objfoldercontents                                 '循环  
response.write     ""&objfileitem.name&""               '文件名  
response.write     ""&objfileitem.type&""             '类型  
response.write     ""&objfileitem.size&"k"           '文件大小  
response.write     ""&objfileitem.datelastmodified&""           '更新日期  
next  
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 对象实例内存空间
%>



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文件类型的说明字符串


上一篇: 网页字体特效代码大全
下一篇: ASP取汉字的首字母
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: 1162
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 300 字 | UBB代码 开启 | [img]标签 关闭