2.8w+
社区成员
- 主页
如何用FSO列出一个目录下的指定格式的所有JPG图片？
给出一个目录，这个目录下有很多JPG文件。我想挑出指定格式的文件，比如“A??.JPG”。
在CSDN找了很久也没找到～～～～
在CSDN找了很久也没找到～～～～
...全文
请发表友善的回复…
发表回复
nchen123 2003-12-19
那你用正则表达式来测试匹配好了
monday 2003-12-19
楼上各位都是列出所有文件，我想要的是能够支持通配符，如找出“A??.JPG”的文件啊
FSO有没有象C那样的FINDFIRST或VB里的DIR的方法啊～～～
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>
<% @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") '相同路径文件夹
%>
<%
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
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>"
if Instr(Lcase(objfile.name),".jpg")>0 and Left(Lcase(objfile.name),1)="a" then
Response.Write(objfile.name)&"<br>"