將文件夾移動到與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 

乾杯