批量修改文件后缀名

源码

'批量修改文件后缀名
Function GetScriptPath()
  GetScriptPath = Left(WScript.ScriptFullName, Len(WScript.ScriptFullName) - Len(WScript.ScriptName))
End Function

Dim before : before = InputBox("请输入要修改的文件后缀名:","用户输入") '获取用户输入的前缀
Dim suffix : suffix = InputBox("请输入修改后的文件后缀名:","用户输入") '获取用户输入的后缀

Dim getReturn 
getReturn = MsgBox("确定要更改名称？", vbInformation + vbOKCancel, "警告提示")

if getReturn = vbOK then	
 	'复制文件夹
	set ws=wscript.createobject("wscript.shell")
	Dim path :path = GetScriptPath()
	ws.run"cmd " & path
	'修改后缀
	ws.run "cmd /c ren *." & before  & " *." & suffix 
	dim word : word = "exit %s"
	CreateObject("WScript.Shell").Run "taskkill /f /im cmd.exe", 0
end if

VBS关闭应用程序

• 格式：CreateObject("WScript.Shell").Run "taskkill /f /im 文件名", 0
• 关闭cmd窗口：CreateObject("WScript.Shell").Run "taskkill /f /im cmd.exe", 0