[deepred]

vdereberya,

Нужно подредактировать начало сценария:

Код:

On Error resume Next
    Dim input, StrDSTFolder, StrLoctFolder, StrDp2LoctFolder
    ArrSubFolders = Array("Folder1", "Folder2", "Folder3", "Folder4", "Folder5")
    Input = InputBox("Введите имя папки")
    
    If IsEmpty(input) Then
       WScript.Quit 0
    End if

.........