[问题求助] vbs如何批量重命名指定扩展名/后缀的文件？

mingjianko

1号文件夹里面有1千个PNG图片文件，1千个TXT文件，原始文件名是1,到1000，

只针对PNG格式的文件重命名，该如何写
用VBS如何按照文件名数字顺序重命名，重命名后的文件名是0001,0002,0003,0004到1000

mingjianko

这个问题好像没人会啊，哈哈，

codegay

是你自己不会。不要推断到别人身上。

Nsqs

回复 1# mingjianko

dim fso,Wsc,WshPath,Folder
set fso=CreateObject("scripting.filesystemobject")
Set Wsc=CreateObject("wscript.shell")
WshPath=Fso.getparentfoldername(wsh.scriptfullname)
Wsc.CurrentDirectory = WshPath
set folder=fso.getfolder("1号")
for each List in folder.files
	ext=fso.getextensionname(list)
	if ext="txt" then
		name=fso.getbasename(list)
		x=x mod 1000+10001:str_mid=mid(x,2)
		if name<>str_mid then _
			filename=str_mid&"."&ext:_
			list.name=filename '改名
	end if
nextCOPY

一点基础都没有,还要写vbs,上面代码'是不执行的部分,昨天是加了'而且我明确表示是改名了

mingjianko

我测试一下。好像没有效果

WHY

strSrcDir = "D:\test"
Set fso=CreateObject("Scripting.FileSystemObject")
 
For i = 10001 To 11000
    strSrcFile = strSrcDir & "\" & (i - 10000) & ".jpg"
    strDstFile = Mid(i, 2) & ".jpg"
    If fso.FileExists(strSrcFile) Then fso.GetFile(strSrcFile).Name = strDstFile
NextCOPY