View previous topic :: View next topic |
Author |
Message |
safarov
Joined: 19 Apr 2017 Posts: 3
|
(Separately) Posted: Thu Apr 20, 2017 08:50 Post subject: Создание папки с именем строго по указанному образцу |
|
|
Добрый день, подскажите пожалуйста как можно сделать контроль на имя папки, если пользователь создает папку то ее имя должно соответствовать требованию, например "Мир_1234567890"
то есть после названия обязательно числовой код не меньше 10 символов
ели символов нет или их меньше то папка не создается и выходит предупреждение. |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10287 Location: Россия, Саратов
|
(Separately) Posted: Thu Apr 20, 2017 09:13 Post subject: |
|
|
Во-первых, что это за зверь такой "контроль на имя папки"?
Во-вторых, про оформление заголовков читайте в правилах форума.
В-третьих, там же сказано про соблюдение в сообщениях элементарных норм русского языка.
В-четвёртых, запрос вообще крайне невразумителен. Перечитайте, что написали. Откуда берётся, например, это "символов нет или их меньше"? Символы конкретные (и если да, то откуда берётся "требование") или произвольные? И так далее.
Это не говоря про то, что в подфоруме "Автоматизация" уже существует куча тем по созданию папок по самым разным критериям.
Для начала — замечание за нарушение правил форума. Заголовок пока оставляю без изменения, поскольку непонятно, о чём вообще речь. Объясните задачу нормально. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) 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 |
|
Back to top |
|
|
safarov
Joined: 19 Apr 2017 Posts: 3
|
(Separately) Posted: Thu Apr 20, 2017 13:34 Post subject: |
|
|
Да что-то этого только папку надо создавать в текущей, а не в той где скрипт лежит |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Apr 20, 2017 13:40 Post subject: |
|
|
>>> Avada wrote: | там же сказано про соблюдение в сообщениях элементарных норм русского языка. | Как в одно ухо...
Пункты 8 и 7 (именно в такой последовательности) к прочтению. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
safarov
Joined: 19 Apr 2017 Posts: 3
|
(Separately) Posted: Thu Apr 20, 2017 13:55 Post subject: |
|
|
Спасибо, помогло |
|
Back to top |
|
|
Avada
Joined: 01 Aug 2008 Posts: 10287 Location: Россия, Саратов
|
(Separately) Posted: Thu Apr 20, 2017 14:01 Post subject: |
|
|
safarov
Еще одно демонстративное нарушение правил в любой теме, и дальше этот форум обойдётся без вашего участия. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
|
|