使用 VBS 将文件夹移动到不同的文件夹

Question

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

C:\homefolders\test_person C:\homefolders\test_person\old_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

Answer 1

假设权限没有问题：

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

干杯