'=============== VBS ==============
' Создание каталога Name_№№№№№№№№№№
' Условие: путь запуска - пустой
'==================================
S = vbCr & vbCr : Er = S
Arr = Array("", "") : A = Arr
FolderName = "Name_0123456789"
With CreateObject("Scripting.FileSystemObject")
Do : FolderName = RTrim(InputBox(Er & vbCr & vbCr &_
"Введите имя нового каталога в формате <ИМЯ>_№№№№№№№№№№:",_
" Создание каталога", FolderName))
Check2 = 1 : If FolderName = "" Then WSH.Quit
Arr = A : If InStr(FolderName, "_") Then Arr = Split(FolderName, "_")
Check1 = Len(Arr(0)) > 0 And IsNumeric(Arr(1)) And Len(Arr(1)) => 10
If Not Check1 Then Er = S & "Ошибка: Имя не соответcтвует шаблону!" Else _
If .FolderExists(FolderName) Then Check2 = 0 : Er = S & "Ошибка: такой каталог существует!"
If Check1 And Check2 Then Exit Do
Loop : .CreateFolder FolderName
End With |