Создание папки с именем строго по указанному образцу

[safarov]

Добрый день, подскажите пожалуйста как можно сделать контроль на имя папки, если пользователь создает папку то ее имя должно соответствовать требованию, например "Мир_1234567890"
то есть после названия обязательно числовой код не меньше 10 символов
ели символов нет или их меньше то папка не создается и выходит предупреждение.

[Avada]

Во-первых, что это за зверь такой "контроль на имя папки"?
Во-вторых, про оформление заголовков читайте в правилах форума.
В-третьих, там же сказано про соблюдение в сообщениях элементарных норм русского языка.
В-четвёртых, запрос вообще крайне невразумителен. Перечитайте, что написали. Откуда берётся, например, это "символов нет или их меньше"? Символы конкретные (и если да, то откуда берётся "требование") или произвольные? И так далее.
Это не говоря про то, что в подфоруме "Автоматизация" уже существует куча тем по созданию папок по самым разным критериям.

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

[Flasher]

Типа того?:

Код: Выделить всё

'=============== 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

[safarov]

Да что-то этого только папку надо создавать в текущей, а не в той где скрипт лежит

[Flasher]

>>>

там же сказано про соблюдение в сообщениях элементарных норм русского языка.

Как в одно ухо...
Пункты 8 и 7 (именно в такой последовательности) к прочтению.

[safarov]

Спасибо, помогло

[Avada]

safarov
Еще одно демонстративное нарушение правил в любой теме, и дальше этот форум обойдётся без вашего участия.