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

最新推荐文章于 2022-06-16 10:00:14 发布

maray

最新推荐文章于 2022-06-16 10:00:14 发布

阅读量9.6k

点赞数

分类专栏：编程与应用文章标签： vbscript 脚本 each c

本文链接：https://blog.csdn.net/maray/article/details/6952735

版权

编程与应用专栏收录该内容

231 篇文章 2 订阅

订阅专栏


''' filename: rename.vbs
''' http://blog.csdn.net/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