批量统计文件夹中的图片数量
发布网友
发布时间：2022-04-23 02:11
共2个回答
热心网友
时间：2023-09-29 23:47
Dim zero
zero=String(6,"0")
Dim regex
Set regex=New RegExp
regex.Pattern="jpg"
regex.IgnoreCase=true
set fso=wscript.createobject("scripting.filesystemobject")
Set jpgfile=fso.CreateTextFile("FileList.txt",True)
ListJpg(".")
jpgfile.Close
WScript.Echo("处理完毕，详情可查看当前文件夹下的FileList.txt！")
Function ListJpg(rPath)
n=0
Set fds=fso.getfolder(rPath)
jpgfile.WriteLine(fds.Path)
Set fjs=fds.Files
For Each fj In fjs
If regex.Test(fso.GetExtensionName(fj.Path)) Then
n=n+1
jpgfile.WriteLine("原文件名： "&fj.Name&vbTab&vbTab&"---- 更改后："&vbTab&vbTab&Right(zero&n,6)&".jpg")
fj.Move(fso.GetParentFolderName(fj.Path)&Chr(92)&Right(zero&n,6)&".jpg")
End if
Next
jpgfile.WriteLine("此文件夹下共有 "&Right(zero&n,6)&" 个jpg文件"&vbNewLine)
Set sfds=fds.SubFolders
For Each sfd In sfds
ListJpg(sfd.Path)
Next
End Function
请将上述代码保存为vbs文件，本脚本将修改vbs所在文件夹及其所有子文件夹中的jpg文件。
（例如，假设脚本保存为c:\test\1.vbs，则执行本脚本后c:\test及其所有子文件夹中的jpg文件都会被改名。）
热心网友
时间：2023-09-29 23:47
