Как переместить все подпапки в другое дерево сохранения папок?

Question

Я хочу переместить все подпапки с файлами с сохранением дерева, расположенного в "V: \ FTP", в "V: \ FTP \ Completed" с помощью VBScript.

IЯ хочу исключить "V: \ FTP \ TEMP1" и "V: \ FTP \ TEMP2" из перемещения.

У меня есть скрипт, перемещающий все файлы в "V: \ FTP" в«V: \ FTP \ Completed», исключая «V: \ FTP \ folder.jpg»:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("V:\FTP").Files
For Each objFile In objFolder
    If objFile.Name <> "folder.jpg" Then
        objFSO.MoveFile objFile.Path, "V:\FTP\Completed\"
    End If
Next

Моя проблема в том, что я не понимаю, как сделать то же самое с папками.

Answer 1

После прочтения документации вот мой рабочий скрипт:

Dim fso, objFol, objMoveFol

Set fso = CreateObject("Scripting.FileSystemObject")
Set objFol = fso.GetFolder("V:\FTP")

For Each objMoveFol In objFol.SubFolders

If objMoveFol.Name <> "Completed" and objMoveFol.Name <> "TEMP2" and objMoveFol.Name <> "TEMP1" Then

    objMoveFol.move "V:\FTP\Completed\"
End If

Next