如何在VBA中批量重命名包含波浪号(~)的文件

Function GetFilesWithTilde(ByVal folderPath As String) As Collection
    Dim fs As New FileSystemObject
    Dim targetFolder As Folder
    Dim file As File
    Dim filesCollection As New Collection
    
    Set targetFolder = fs.GetFolder(folderPath)
    
    For Each file In targetFolder.Files
        If InStr(file.Name, "~") > 0 Then
            filesCollection.Add file.Path
        End If
    Next file
    
    Set GetFilesWithTilde = filesCollection
End Function

Sub RenameFilesWithTilde()
    Dim folderPath As String
    Dim files As Collection
    Dim filePath As Variant
    Dim newFileName As String
    
    ' 设置目标文件夹路径
    folderPath = "C:\目标文件夹路径"
    
    ' 获取包含波浪号的文件
    Set files = GetFilesWithTilde(folderPath)
    
    ' 遍历文件并重命名
    For Each filePath In files
        ' 生成新文件名（去掉波浪号）
        newFileName = Replace(filePath, "~", "")
        
        ' 重命名文件
        Name filePath As newFileName
    Next filePath
End Sub