将文件夹移动到与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 

干杯