如何在 vbs 脚本中重命名文件夹

Question

我正在尝试使用以下 vbs 脚本在 100 多个 Windows 10 客户端上重命名 Outlook 文件夹，除了 (Microsoft VBScript 编译错误：预期语句结束) 之外什么也没发生。有人能帮我找出我错在哪里吗？

'Check if a folder exists

Dim folderPath As String
folderPath = "C:\Users\sas\AppData\Local\Microsoft\Outlook-old"

If Dir(folderPath, vbDirectory) <> "" Then

    Debug.Print folderPath & " exists."

Else

    'Rename folder
Name "C:\Users\sas\AppData\Local\Microsoft\Outlook" As "C:\Users\hmohamadmoosa\AppData\Local\Microsoft\Outlook-old"

End If