Vbscript 使用VBS将文件夹移动到其他文件夹中

我一直在尝试制作一个小VBS，它可以获取服务器上的所有主目录，并将它们移动到不同的位置。小例子

C:\homefolders\test\u person C:\homepolders\test\u person\old\u home

这是我到目前为止得到的，但移动部分不工作

Call ListFolderContents("C:\Windows\System32\Drivers")

Sub ListFolderContents(path)
    set fs = CreateObject("Scripting.FileSystemObject")
    set folder = fs.GetFolder(path)
    Msgbox folder.path

    For each item in folder.SubFolders
        ListFolderContents(item.Path)
    Next
    set folder = Nothing
    set fs = Nothing
End Sub

---

假设权限没有问题：

set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)
folder.Move newPath

---

干杯

假设权限没有问题：

set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)
folder.Move newPath

---

干杯

我不记得VBS是否有与VB6相同的命令，但如果是这样，你可以调用：Name“”，我不记得VBS是否有与VB6相同的命令，但如果是这样，你可以调用：Name“”，谢谢，奇怪的是，如果我移动文件夹，我会得到一个权限错误，但如果我复制它们，它会工作。在这种情况下，我将只复制然后删除XD。拒绝可能只依赖于删除，因此删除不会解决问题。谢谢，奇怪的是，如果我移动文件夹，我会得到一个权限错误，但如果我复制它们，它会工作。在这种情况下，我将只复制然后删除XD。拒绝可能仅依赖于删除，因此删除不会解决问题。