如何用FSO列出一个目录下的指定格式的所有JPG图片?

monday 2003-12-19 09:10:32
给出一个目录,这个目录下有很多JPG文件。我想挑出指定格式的文件,比如“A??.JPG”。

在CSDN找了很久也没找到~~~~
...全文
17 点赞 收藏 10
写回复
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
nchen123 2003-12-19
那你用正则表达式来测试匹配好了
回复
monday 2003-12-19
楼上各位都是列出所有文件,我想要的是能够支持通配符,如找出“A??.JPG”的文件啊

FSO有没有象C那样的FINDFIRST或VB里的DIR的方法啊~~~
回复
xzwhdpu 2003-12-19
hoho,这个是列出所有文件的,还能探测占用空间大小,删除功能本来有的,但是从别人那里剥出来后,我就不会用了
回复
xzwhdpu 2003-12-19
我也找到一个,希望可以实现删除功能,高手帮着改改!
<% @Language = "VBScript" %>
<% Response.buffer = true %>
<% set fso=server.createobject("scripting.filesystemobject")
toldir=server.mappath(".")
thisdir=server.mappath("./images/")
set d=fso.getfolder(toldir)
Set fdir=fso.GetFolder(thisdir)
tolsize=d.size
%>
<%
sub delfiles
for each ho in request.form("files")
fso.DeleteFile""&Server.MapPath("./images/"&ho&"")&""
next
error2("已经成功删除所选的文件!")
end sub
%>



<div align="center"><strong><font color="#000000">占用空间</font></strong>:<%=Int(tolsize/1024/1024)%>
MB </div>


<p>
<%
sub files
pagesetup=10 '设定每页的显示数量
count=fdir.Files.count
If Count/pagesetup > (Count\pagesetup) then
TotalPage=(Count\pagesetup)+1
else TotalPage=(Count\pagesetup)
End If
if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
end sub
%>
共有 <font color="FF0000"><b><%=fdir.Files.count%></b></font> 个文件 </p>
<form method=post name=form action="delfiles">
<table width=600 cellpadding=2 cellspacing=2>
<tr class=a1 ><td width=50 align="center"><input type=checkbox name=chkall onclick=CheckAll(this.form) value="ON"></td><td width=200>名称</td>
<td width=50 align=center>
大小</td><td width=100 align="center">类型</td><td width=200 align="center">
修改时间</td></tr></table>
<%
pagesize=20
page=request.querystring("page")
if page="" or not isnumeric(page) then
page=1
else
page=int(page)
end if
filenum=fdir.Files.count
pagenum=int(filenum/pagesize)
if filenum mod pagesize>0 then
pagenum=pagenum+1
end if
if page> pagenum then
page=1
end if
i=0
For each thing in fdir.Files

i=i+1
if i>(page-1)*pagesize and i<=page*pagesize then

response.write "<table width=600 cellpadding=2 cellspacing=2><tr><td width=50 align=center><input type='CheckBox' value='"&thing.name&"' name=files></td><td width=200><a target=_blank href="&cluburl&"/images/"&thing.Name&">"&thing.Name&"</a></td><td width=50 align=center>" & cstr(thing.size) & "</td><td width=100>" & thing.type & "</td><td width=200 align=center>" & cstr(thing.datelastmodified) & "</td></tr></table>"


elseif i>page*pagesize then
exit for
end if
Next
%>
<table width=600 cellpadding=2 cellspacing=2>
<tr><td align="center">
<INPUT type=submit value=" 删 除 " name=Submit>
</td><td align="center">
<%

if page>1 then
response.write "<a href=?menu=files&page=1>首页</a>  <a href=?menu=files&page="& page-1 &">上一页</a>  "
else
response.write "首页  上一页  "
end if
if page<i/pagesize then
response.write "<a href=?menu=files&page="& page+1 &">下一页</a>  <a href=?menu=files&page="& pagenum &">尾页</a>"
else
response.write "下一页  尾页"
end if




%>

</td>

</tr></table>
</form>


回复
xzwhdpu 2003-12-19
good dd
回复
swich 2003-12-19
楼上的可以实现
回复
angelheavens 2003-12-19
测试通过:
<%
Dim SpecialFolder

Sub ShowJPGFile(SpecialFolder)
dim fso,objfolder,FolderName

FolderName=server.MapPath(SpecialFolder)
set fso=server.createobject("scripting.filesystemobject")
if fso.FolderExists(FolderName)=false then
set fso=nothing
else
set objfolder=fso.GetFolder(FolderName)
for each objfile in objfolder.files
if Instr(Lcase(objfile.name),".jpg")>0 then Response.Write(objfile.name)&"<br>"
next
set objfolder=nothing
set fso=nothing
end if
End Sub

Call ShowJPGFile("images") '相同路径文件夹
%>
回复
angelheavens 2003-12-19
sub DeleteMemberPhoto(PhotoPath)
dim fso,objfolder,objfile

MemberFolderName=server.MapPath(PhotoPath)
set fso=server.createobject("scripting.filesystemobject")
if fso.FolderExists(MemberFolderName)=false then
set fso=nothing
else
set objfolder=fso.GetFolder(MemberFolderName)
for each objfile in objfolder.files
if Instr(Lcase(objfile.name),".jpg")>0 then Response.Write(objfile.name)
next
set objfolder=nothing
set fso=nothing
end if
end sub
回复
monday 2003-12-19
对不起,前楼的能说一下“正则表达式”吗?
回复
angelheavens 2003-12-19
在原有基础上你还可以对文件修改,删除,排序等

if Instr(Lcase(objfile.name),".jpg")>0 and Left(Lcase(objfile.name),1)="a" then

Response.Write(objfile.name)&"<br>"
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告