Flasher
|
 Posted: Thu Apr 20, 2017 12:22 Post subject: |
 |
|
Типа того?:
| Code: | '=============== 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 |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Thu Apr 20, 2017 13:43; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
