Тема: VBS: Создание дерева каталогов
Всем здравия
Нужен хелп.
Есть задача - В папке лежит скрипт, при его инициировании выводится диалоговое окно с предложением назвать папку(реализовал).Скрипт проверяет есть ли такая папка(реализовал). Папка создается в каталоге, где лежит скрипт(реализовал). А вот дальше уткнулся в нехватку знаний - не могу реализовать создание фиксированных подкаталогов во вновь созданном каталоге.
пример: test(вновь созданный каталог)\test2(подкаталог)\test3(подкаталог)
скрипт -что реализовано и работает:
Option Explicit
Dim objFSO, objFolder, objShell, strDirectory, strFolder2
strDirectory = InputBox("Ввести название папки:", "Создание папки.")
'Для кнопки Отмена или для пустого поля ввода
If strDirectory=Empty Then
WScript.Quit
End If
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Проверка на существование папки и создание.
If objFSO.FolderExists(strDirectory) Then
objFSO.CreateFolder strDirectory
WScript.Echo "Папка ''"& strDirectory &"'' уже создана "
Else
Set objFolder = objFSO.CreateFolder(strDirectory)
'WScript.Echo "Вновь созданная папка ''"& strDirectory &"''."
End If
WScript.Quit
Если есть возможность выручайте