Question

vbs怎么更改文件名？

假设是c盘中的1.txt文件要改成2.txt。怎么写？

Answer 1

vbs 里面没有文件重命名的方法,
都是用fileObj.move实现的:

Set FSO=CreateObject("Scripting.FileSystemObject")
Set f1=fso.GetFile("C:\1.txt")
f1.Move("C:\2.txt")

Answer 2

可以用 FSO 组件。
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 i
For i = 0 To UBound(files)
Call fop.ChangeFileName(GetScriptPath() & files(i), GetScriptPath() & prefix & files(i))
Next
MsgBox "文件更名完毕!", MB_OK Or MB_ICONQUESTION, "提示:"