ASP 如何获取所有文件,包括子目录中的全有文件名
用ASP来编写的代码，一次性获取一个文件里面的所有文件名，大小，更新时间（包裹子文件夹里面的所有文件）如果使用脚本最好用JS，我看得懂一些...
用ASP来编写的代码，一次性获取一个文件里面的所有文件名，大小，更新时间（包裹子文件夹里面的所有文件）如果使用脚本最好用JS，我看得懂一些
展开
2个回答
展开全部
没时间细改，给你个参考下：
<table>
<tr>
<td><strong>文件名</strong></td>
<td><strong>文件大小</strong></td>
<td><strong>创建时间</strong></td>
</tr>
<%
Dim fso, f, f1, fc,fp,fs,vf
Set fso = CreateObject("Scripting.FileSystemObject")
fp=server.MapPath("/") & "\"
Set f = fso.GetFolder(fp)
Set fc = f.SubFolders
For Each f1 in fc
%>
<tr>
<td><%=f1.name%></td>
<td><%=f1.size%></td>
<td><%=f1.DateCreated%></td>
</tr>
<%
Set fs = f1.Files
For Each vf in fs
%>
<tr>
<td>/<%=f1.name%>/<%=vf.name%></td>
<td><%=vf.size%></td>
<td><%=vf.DateCreated%></td>
</tr>
<%
next
next
Set fc = f.Files
For Each f1 in fc
%>
<tr>
<td><%=f1.name%></td>
<td><%=f1.size%></td>
<td><%=f1.DateCreated%></td>
</tr>
<%
next
%>
</table>
<table>
<tr>
<td><strong>文件名</strong></td>
<td><strong>文件大小</strong></td>
<td><strong>创建时间</strong></td>
</tr>
<%
Dim fso, f, f1, fc,fp,fs,vf
Set fso = CreateObject("Scripting.FileSystemObject")
fp=server.MapPath("/") & "\"
Set f = fso.GetFolder(fp)
Set fc = f.SubFolders
For Each f1 in fc
%>
<tr>
<td><%=f1.name%></td>
<td><%=f1.size%></td>
<td><%=f1.DateCreated%></td>
</tr>
<%
Set fs = f1.Files
For Each vf in fs
%>
<tr>
<td>/<%=f1.name%>/<%=vf.name%></td>
<td><%=vf.size%></td>
<td><%=vf.DateCreated%></td>
</tr>
<%
next
next
Set fc = f.Files
For Each f1 in fc
%>
<tr>
<td><%=f1.name%></td>
<td><%=f1.size%></td>
<td><%=f1.DateCreated%></td>
</tr>
<%
next
%>
</table>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<html>
<head>
</head>
<body>
<%
dim myfilename()
redim myfilename(0)
set fs=Server.CreateObject("Scripting.FileSystemObject")
sub showfile(thefolder)
set fd=fs.getfolder(thefolder)
for each myfile in fd.files
i=ubound(myfilename)
myfilename(i)=fd.path & "\" & myfile.name
redim Preserve myfilename(i+1)
next
for each myfolder in fd.SubFolders '递归记录其它文件夹的文件
call showfile(fd.path & "\" & myfolder.name)
next
end sub
thefolder="e:\lzweb" '在此指定要搜索的文件夹绝对路径，要确定匿名用户有访问的权限，否则会出错
call showfile(thefolder) '过程调用后，查到的文件名包括路径名保存在myfilename数组，
'共ubound(myfilename)个，下标分布在0至ubound(myfilename)-1；
'以下示例把找到文件显示出来
response.write("共找到" & ubound(myfilename) & "个文件<br>")
for i=0 to ubound(myfilename)-1
response.write(i+1 & "--" & myfilename(i) & "<br>")
next
%>
</body>
</html>
<head>
</head>
<body>
<%
dim myfilename()
redim myfilename(0)
set fs=Server.CreateObject("Scripting.FileSystemObject")
sub showfile(thefolder)
set fd=fs.getfolder(thefolder)
for each myfile in fd.files
i=ubound(myfilename)
myfilename(i)=fd.path & "\" & myfile.name
redim Preserve myfilename(i+1)
next
for each myfolder in fd.SubFolders '递归记录其它文件夹的文件
call showfile(fd.path & "\" & myfolder.name)
next
end sub
thefolder="e:\lzweb" '在此指定要搜索的文件夹绝对路径，要确定匿名用户有访问的权限，否则会出错
call showfile(thefolder) '过程调用后，查到的文件名包括路径名保存在myfilename数组，
'共ubound(myfilename)个，下标分布在0至ubound(myfilename)-1；
'以下示例把找到文件显示出来
response.write("共找到" & ubound(myfilename) & "个文件<br>")
for i=0 to ubound(myfilename)-1
response.write(i+1 & "--" & myfilename(i) & "<br>")
next
%>
</body>
</html>
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
