双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

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

2003-12-19 09:10:32 111 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

monday 墨衍会员 · AI 创作全网分发关注 + 加入社区

Excel图片动态绑定与双击编辑：VBA实现单元格关联与快速编辑在数据处理与可视化中，Excel的图片管理常面临静态插入导致的排版错乱问题。其核心原理在于理解Excel中浮动对象与单元格的关联机制，通过设置对象属性实现动态绑定。OLE（对象链接与嵌入）技术则提供了外部程序调用的基础，使得图片能通过系统默认应用快速编辑。这些技术显著提升了数据与可视化元素的协同效率，尤其适用于产品目录、人员信息表等需要图文关联的场景。本文结合VBA宏与属性设置，详细演示了如何实现图片随单元格动态调整，并通过热词中提到的超链接替代方案对比，提供了生产环境下的优化思路。阅读详情

给出一个目录，这个目录下有很多JPG文件。我想挑出指定格式的文件，比如“A??.JPG”。

在CSDN找了很久也没找到～～～～

...全文

扩增子分析|溯源分析在R中的复现：跟着Nature系列文章利用FEAST溯源分析包追溯微生物群落的起源溯源分析由Liat Shenhav等人在2019年发表在Nature Methods杂志，他们开创的一种分析微生物群落组成结构的方法，通过量化不同微生物样本（来源）在目标微生物群落（汇）中的比例或分数识别微生物群落的潜在来源。该方法自发表以来受到微生物学界广泛关注，该论文截止2024年10月9日已经被引289次，是领域内高被引论文，该方法已经成为Nature，cell系列文章高度关注的方法。阅读详情

monday

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

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>"

✦双11狂欢大促✦

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

相关推荐

双11狂欢大促