vbs批量修改文件名

Set fso = CreateObject("Scripting.FileSystemObject")
' 要去掉的前缀
prefix = "12_"
' 获取当前目录下的所有文件
FolderPath = "D:\Users\翔\桌面\新建文件夹"
Set folder = fso.GetFolder(FolderPath)
Set files = folder.Files
' 遍历所有文件
For Each file In files
    ' 判断文件名是否以指定前缀开头
    If Left(file.Name, Len(prefix)) = prefix Then
        ' 修改文件名
        newname = Mid(file.Name, Len(prefix) + 1)
        fso.MoveFile file.Path, FolderPath &"\"& newname
    End If
Next