Автоматизированное создание папок

[Batya]

Для 40+ папок ?

Какого вида папки создаются и зачем?

[Вахмурка]

Не хватает, на самом деле, мало

Завидую такой позиции.

Про операционку не понял вообще

Это я типа пошутил, видимо, чересчур тонко.
Забавно выглядит диалог:
- Мне надо, чтобы Тотал делал какие-то экзотические вещи, которые до меня ни одному человеку в голову не приходили. Самому мне писать этому бездельнику и неумехе Гислеру лень, так что эй вы там, кто-нибудь, прикажите ему срочно это реализовать.
- Ну что вы, барин, не надо. Вот тебе, барин, один скрипт, а вот тебе другой.
- Не... Что-то куда-то прописывать надо, читать что-то, справку изучать. Эй, человек, сделай-ка все сам...

[Koljasik]

Для 40+ папок ?

Какого вида папки создаются и зачем?

Проблема подобого плана, только папок порядка несколких сотен...
Решил систематизировать библиотечку по ДКД, составил уже файл-список с именами соответствующим категориям, а как по ним создать директории, ума не приложу...

[Tol!k]

составил уже файл-список с именами соответствующим категориям, а как по ним создать директории, ума не приложу...

Видел тему Cоздание папок по списку из указанного файла?

[Koljasik]

Не видел. Спасибо!

[universal007]

vbs-скрипт:
Код:
'=============================================================
' Создание в текущем каталоге папок с именами 1_1_1 ... 9_9_9
'=============================================================

Option Explicit
Dim FSO, i
Set FSO = CreateObject("Scripting.FileSystemObject")
For i = 111 To 999
FSO.CreateFolder i \ 100 & "_" & (i Mod 100)\ 10 & "_" & (i Mod 10)
Next

Set FSO = Nothing
WScript.Quit

Папки будут создаваться в каталоге "Путь запуска" кнопки. Если он пуст, то в текущем каталоге TC.

Хотел из этого скрипта сделать так, что бы создавалась одна папка
с именем Архив. Но всё что смог так только 0Архив0 или 1Архив1.
Где я ничего не понимаю?
Спасибо.

[Batya]

Где я ничего не понимаю?

Я не знаю, что ты пытался править в скрипте, но для твоей задачи достаточно скрипта из одной строчки:

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

CreateObject("Scripting.FileSystemObject").CreateFolder "Архив"

[universal007]

Я не знаю, что ты пытался править в скрипте

Да, всё гениальное просто!!!

Да я всё что только мог "правил" а он мне ошибку за ошибкой!
Я ведь методом "тыка" и панелки с инструментами себе понаделал и тотал сделал портабельным - ведь без него я как без рук - на чужой машине вообще ничего не вижу. Он у меня 220 метров!

С вашего позволения я для всех желающих
поясню о чём шла речь.

==========================================

Если есть необходимость часто создавать папки с определённым именем, например Архив, копируем и вставляем в блокнот код скрипта

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

CreateObject("Scripting.FileSystemObject").CreateFolder "Архив"

Сохраняем получившийся текстовый файл под любым именем
с расширением vbs, например в папке "C:\Program Files\Total Commander\Script".

Далее копируем приведённый ниже код на панель инструментов
тотала - получиться кнопочка.

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

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Script\Создание в текущем каталоге папки.vbs

C:\WINDOWS\System32\WScript.exe
Создание в текущем каталоге папки


-1

В скрипте CreateObject("Scripting.FileSystemObject").CreateFolder "Архив" слово "Архив" можете заменить на любое другое.
Кстати если поставить перед словом пробел то эта папка будет первой по списку.

В коде кнопки там где "C:\WINDOWS\System32\WScript.exe" выбираете любой значок для кнопки по желанию.

[Batya]

Да, всё гениальное просто!!!

Вообще-то, всё гениальное ещё проще. Вот тебе кнопка:

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

TOTALCMD#BAR#DATA
%comspec% /c md
Архив
%Commander_Path%\TOTALCMD.EXE,1
Создание в текущем каталоге папки

1
-1

При желании, меняй только "Параметры".

[universal007]

Вообще-то, всё гениальное ещё проще. Вот тебе кнопка:

Вот спасибо!
А то за день приходилось немеренное количество раз писать одно и тоже.
Ну и с вашего позволения дополню параметр для таких как я:

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

TOTALCMD#BAR#DATA
%comspec% /c md
" Архив"
%Commander_Path%\TOTALCMD.EXE
Создание в текущем каталоге папки

1
-1

Это если необходимо что бы папка всегда была сверху списка

[Batya]

Это если необходимо что бы папка всегда была сверху списка

Вообще-то, я бы не рекомендовал использовать пробелы в начале или конце имени папки\файла. Некоторые программы могут обрабатывать такие файлы\папки некорректно.
Чтобы нужные файлы\папки были сверху, используй в начале имени какие-нибудь символы, например, "!" или "!_".

[universal007]

Вообще-то, я бы не рекомендовал использовать пробелы в начале или конце имени папки\файла

Да, я с этим верным замечанием полностью согласен.
Вспомнил что как то был такой конфликт - я искал где щенок
зарылся, а всё дело было в безобидном пробеле перед
именем папаки.
Спасибо я это обязательно учту.

[_92]

нажать F7 и написать там следующее: "Название папки|Название другой папки|Название третей папки"

це не робит на ftp (unix-сервер)
там так и создается dir1|dir2|dir3

[Avada]

_92
А в справку заглянуть можно было вместо поднятия темы для задавания подобных вопросов, на которые давно даны ответы?

[_92]

Avada
спс
в будущих версиях планируется это реализовать?