• 原圖
  

• 修改後
  

'批量修改檔名.vbs
Function GetScriptPath()
	GetScriptPath = Left(WScript.ScriptFullName, Len(WScript.ScriptFullName) - Len(WScript.ScriptName))
End Function

Class MyFileOperator
	Private obj
	Private Sub Class_Initialize()
		Set obj = CreateObject("Scripting.FileSystemObject")
	End Sub
	Private Sub Class_Terminate()
		Set obj = Nothing
	End Sub
	' 列舉檔案
	Public Function ListFiles()
	Dim path :path = GetScriptPath()
	Dim objFolder : Set objFolder = obj.GetFolder(path)
	Dim files()
	Dim i :i = 0
	For Each objFile in objFolder.Files
		ReDim Preserve files(i)
		files(i) = objFile.Name
		i = i + 1
	Next
	Set objFolder = Nothing
	ListFiles = files
	End Function
	' 檔案改名
	Public Sub ChangeFileName(source, dest)
		Call obj.MoveFile(source, dest)
	End Sub
End Class

Dim fop :Set fop = New MyFileOperator
Dim files :files = fop.ListFiles() '
Dim prefix : prefix = InputBox("請輸入檔名字首:") '獲取使用者輸入的字首
Dim suffix : suffix = InputBox("請輸入檔名字尾:") '獲取使用者輸入的字尾

Dim i
'更改名稱
For i = 1 To UBound(files)
	Call fop.ChangeFileName(files(i), prefix &"-"& i &"."& suffix)
Next

 

• &是字元連線符
• prefix &"-"& i &"."& suffix就是要改的名字，不需要—可以直接刪除

❤️有則改之，無則加勉。如有錯誤and建議聯絡QQ：2602629646
❤️本文來自作者：MrFlySand，轉載請註明原文連結：https://www.cnblogs.com/MrFlySand/p/15021486.html

❤️【推薦】計基練習題