用脚本批量文件重命名（VBScript）

最新推荐文章于 2023-11-24 15:19:30 发布

iteye_6233

最新推荐文章于 2023-11-24 15:19:30 发布

阅读量146

点赞数

本文介绍了一个使用VBS脚本批量修改特定目录下PNG图片文件后缀名的方法，通过简单的脚本操作，可以将包含‘_副本’关键字的后缀名去除，实现文件名的统一化。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >


''' filename: rename.vbs
''' http://blog.youkuaiyun.com/maray


strFolder = "C:\Users\result\"


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolder)
Set colFiles = objFolder.Files


For Each strFile in colFiles
    If Lcase(objFSO.GetExtensionName(strFile)) = "png" Then
       strNewName = Replace(strFile.Name, "_副本.png", ".png")
       objFSO.MoveFile strFile, strFolder & "\" & strNewName
    End If
Next


Set objFSO = Nothing

有如下文件，利用上面的脚本rename.vbs可以将其批量改名，去掉“_副本"后缀

输入文件：

C:\Users\result\JPG1001_副本.png

C:\Users\result\JPG1002_副本.png

C:\Users\result\JPG1003_副本.png

C:\Users\result\JPG1004_副本.png

C:\Users\result\JPG1005_副本.png

C:\Users\result\JPG1006_副本.png

输出文件：

C:\Users\result\JPG1001.png
C:\Users\result\JPG1002.png

C:\Users\result\JPG1003.png

C:\Users\result\JPG1004.png
C:\Users\result\JPG1005.png

C:\Users\result\JPG1006.png