VBS批量修改文件拓展名

set WshShell = WScript.CreateObject ("WScript.Shell")
n1=InputBox("请在下面输入文件存放的路径"&vbCrLf&""&vbCrLf&"默认为本文件所在路径"&vbCrLf&""&vbCrLf&"By www.gangzi.org","VBS批量更改文件拓展名",WshShell.CurrentDirectory)
n2=InputBox("请在下面输入更改前的文件拓展名"&vbCrLf&""&vbCrLf&"注意：不能带点 比如:txt"&vbCrLf&""&vbCrLf&"By www.gangzi.org","VBS批量更改文件拓展名","更改前的文件拓展名")
n3=InputBox("请在下面输入更改后的文件拓展名"&vbCrLf&""&vbCrLf&"注意：不能带点 比如:gif"&vbCrLf&""&vbCrLf&"By www.gangzi.org","VBS批量更改文件拓展名","更改后的文件拓展名")

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set FileList = objWMIService.ExecQuery("ASSOCIATORS OF {Win32_Directory.Name='"&n1&"'} Where " & "ResultClass = CIM_DataFile")
For Each objFile In FileList
If objFile.Extension = n2 Then
strNewName = objFile.Drive & objFile.Path & objFile.FileName & "." & ""&n3&""
errResult = objFile.Rename(strNewName)
End If
Next