ASP读取文件夹中文件 java 读取文件夹

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 "<ahref=""&server.URLEncode(htmfile)&""target=_blank>"&htmfile&"</a><br>"
next
%>

<%
OptionExplicit
diminfopath'当前路径
dimserverpath'服务器路径
dimobjfso'文件组件
dimobjfile'文件
dimobjfolder'目录
dimobjfoldercontents'所有文件
dimobjfoldercount'临时数组变量-文件夹
dimobjfileitem'临时数组变量-文件
ASP读取文件夹中文件 java 读取文件夹
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文件类型的说明字符串

  

爱华网本文地址 » http://www.413yy.cn/a/25101014/196667.html

更多阅读

手机图片存放在哪里,放在那个文件夹中 qq图片文件夹在哪里

手机图片存放在哪里,放在那个文件夹中——简介用手机拍摄了照片或者用手机截图,手机连上电脑后,却在电脑上找不到图片,怎么办,没关系小编教你轻松找到图片手机图片存放在哪里,放在那个文件夹中——工具/原料手机电脑手机图片存放在哪里,放

win7系统中如何给文件夹加密 win7系统下文件夹加密

win7系统中如何给文件夹加密——简介工作中,很多电脑是多人共用的,那么如何给文件夹加密,让其他人无法浏览你不想让别人知道的资料内容呢?本文就给大家介绍两种常用方法,都是最绿色的,无需安装什么软件,win7操作系统自带的文件夹加密方法

怎样在控制面板中创建关联 文件夹选项中创建关联

怎样在控制面板中创建关联——简介大家在平时使用电脑的过程中,可能会遇到一些文件关联的问题,比如说,Windows操作系统提醒“该文件没有程序与之关联来执行该操作,请在控制面板的文件夹选项中创建关联”,因此这里我将向大家介绍一下如何

声明:《ASP读取文件夹中文件 java 读取文件夹》为网友称雄三界分享!如侵犯到您的合法权益请联系我们删除