ExcelVBA-替换指定文件夹中所有文件名中的字符串

Sub ReplaceStringInFolder()
    Dim folderPath As String
    Dim fileName As String
    Dim newFileName As String
    Dim folder As Object
    Dim file As Object
    
    ' 设置文件夹路径
    folderPath = "C:\YourFolderPath\"
    
    ' 设置要替换的字符串和新的字符串
    Dim oldString As String
    Dim newString As String
    oldString = "OldString"
    newString = "NewString"
    
    ' 创建文件系统对象
    Set folder = CreateObject("Scripting.FileSystemObject")
    
    ' 遍历文件夹中的所有文件
    For Each file In folder.GetFolder(folderPath).Files
        ' 获取文件名
        fileName = file.Name
        
        ' 替换字符串
        newFileName = Replace(fileName, oldString, newString)
        
        ' 重命名文件
        Name file.Path As folderPath & newFileName
    Next file
    
    ' 释放对象
    Set folder = Nothing
    Set file = Nothing
    
    MsgBox "文件名替换完成！"
End Sub