Создание папки с именем строго по указанному образцу
Select messages from
# through # FAQ
[/[Print]\]

Total Commander -> Автоматизация Total Commander

#1: Создание папки с именем строго по указанному образцу Author: safarov PostPosted: Thu Apr 20, 2017 08:50
    —
Добрый день, подскажите пожалуйста как можно сделать контроль на имя папки, если пользователь создает папку то ее имя должно соответствовать требованию, например "Мир_1234567890"
то есть после названия обязательно числовой код не меньше 10 символов
ели символов нет или их меньше то папка не создается и выходит предупреждение.

#2:  Author: AvadaLocation: Россия, Саратов PostPosted: Thu Apr 20, 2017 09:13
    —
Во-первых, что это за зверь такой "контроль на имя папки"?
Во-вторых, про оформление заголовков читайте в правилах форума.
В-третьих, там же сказано про соблюдение в сообщениях элементарных норм русского языка.
В-четвёртых, запрос вообще крайне невразумителен. Перечитайте, что написали. Откуда берётся, например, это "символов нет или их меньше"? Символы конкретные (и если да, то откуда берётся "требование") или произвольные? И так далее.
Это не говоря про то, что в подфоруме "Автоматизация" уже существует куча тем по созданию папок по самым разным критериям.

Для начала — замечание за нарушение правил форума. Заголовок пока оставляю без изменения, поскольку непонятно, о чём вообще речь. Объясните задачу нормально.

#3:  Author: FlasherLocation: Москва PostPosted: Thu Apr 20, 2017 12:22
    —
Типа того?:
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


Last edited by Flasher on Thu Apr 20, 2017 13:43; edited 1 time in total

#4:  Author: safarov PostPosted: Thu Apr 20, 2017 13:34
    —
Да что-то этого только папку надо создавать в текущей, а не в той где скрипт лежит

#5:  Author: FlasherLocation: Москва PostPosted: Thu Apr 20, 2017 13:40
    —
>>>
Avada wrote:
там же сказано про соблюдение в сообщениях элементарных норм русского языка.
Как в одно ухо...
Пункты 8 и 7 (именно в такой последовательности) к прочтению.

#6:  Author: safarov PostPosted: Thu Apr 20, 2017 13:55
    —
Спасибо, помогло

#7:  Author: AvadaLocation: Россия, Саратов PostPosted: Thu Apr 20, 2017 14:01
    —
safarov
Еще одно демонстративное нарушение правил в любой теме, и дальше этот форум обойдётся без вашего участия.



Total Commander -> Автоматизация Total Commander


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Page 1 of 1

Powered by phpBB © 2001, 2005 phpBB Group