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