Переместить папку в другую папку с 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

Приветствия