如何更改当前保存ThisWorkbook.Path的文件的路径？

Sub ChangeFilePath()
    Dim fso As Object
    Dim wb As Workbook
    Dim newPath As String
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set wb = ThisWorkbook
    
    ' 设置新的文件路径
    newPath = "C:\New\Path\to\Save\Your\File.xlsx"
    
    ' 检查新的文件路径是否存在
    If fso.FolderExists(fso.GetParentFolderName(newPath)) Then
        ' 保存工作簿到新的文件路径
        wb.SaveAs newPath
        MsgBox "文件路径已更改为：" & newPath
    Else
        MsgBox "指定的文件路径不存在！"
    End If
    
    Set fso = Nothing
    Set wb = Nothing
End Sub