Перемещение нужного количества файлов по папкам

[BenjaminLion]

Andrey_A
vbs-скрипт:

Первый скрипт с первой страницы (новичку нельзя размещать ссылки)

Этот скрипт у меня выдаёт ошибку -
Строка: 17
Символ: 1
Ошибка: Индекс выходит за пределы допустимого диапазона
Код: 800A0009
Источник: Ошибка выполнения Microsoft VBScript

В скрипте ничего не менял (не умею)
Строка параметров кнопки пустая

А я батник написал, извратился.

Второй скрипт с первой страницы

Use %L as first parameter [and number of files in subdirs as second]! - вот такая строка и всё.

Ну вот тогда третий до кучи, на Autoit.

Третий скрипт с первой страницы
Недостаточно параметров, должно быть 3.

Total Commander 9.50 Extended 20.2 x64

Win 10 Pro 1909

wscript.exe 5.812.10240.16384

Вроде достаточно подробно.
Админ, если что не так, ткните носом. И спасибо за адрес памятки, совсем туплю.

[Flasher]

BenjaminLion
Очевидно, что пункт 5) из общих положений и, соответственно, п. 3) из проблемных не выполнен.
Также не протестирован более универсальный вариант для выбранных папок.
P.S.: Я не админ.

[sa]

имею схожую проблему с топик стартером.

Уже лет 6, как в тотале для раскладывания файлов по подкаталогам можно воспользоваться дробным счётчиком в инструменте группового переименования:

[C+1/100]Новое (8.51): Дробный счётчик, который увеличивает значение через заданное количество файлов (в приведённом примере: через каждые 100 файлов).
Например, если нужно разложить файлы по подкаталогам, чтобы в каждом (кроме последнего) было по 100 файлов, можно воспользоваться выражением: [C+1/100]\[N].

[BenjaminLion]

Вы, пожалуйста, простите мою тупость и не внимательность, но и указанный Вами способ у меня не работает.

1 Файл скрипта лежит в папке с файлами
2 Перетаскиваю его на панель кнопок
3 ПКМ на кнопке в свойствах - изменить
3(а) Команда: J:\SVG\MoveFilesUniversal.vbs
3(б) Параметры: %WL 20 move
3(в) Путь запуска: J:\SVG\ Пробовал очищать - не помогло.

При нажатии на кнопку ничего не происходит, ни просто ни с правами админа.

Пробовал ставить Script Helper for TC из памятки, во первых не понял установилось ли (ставил через cmd с правами админа как написано в ридми из архива, но там та же история ввожу путь к файлу с ключом TCWSHelp.exe /REGSERVER и никаких объявлений поздравлений, что всё ок)

Как то так, что же я упускаю?

[Flasher]

BenjaminLion
1. Зачем? Положите его в нормальный подкаталог ТС. Например, Scripts.

При нажатии на кнопку ничего не происходит

После выбора папки/папок?

Пробовал ставить Script Helper

Зачем? Вы видите данное условие в шапке скрипта? В пункте 8 как-то двусмысленно об этом написано?

[BenjaminLion]

1. Зачем? Положите его в нормальный подкаталог ТС. Например, Scripts.

Такой папки у меня нет (небыло), я создал её в корне папки TC.
Там были только Language, Plugin, Soft. Я правильно сделал?

После выбора папки/папок?

Да, окно с файлами активное, пробовал выделять файлы, и просто при активном окне.

Script Helper поставил на "всякий", для объективности моих знаний не хватает.

Добавлено спустя 3 минуты:

можно воспользоваться выражением: [C+1/100]\[N].

Это можно прописать в каком то поле изменив 100 на 20 ?
Потому что открыв окно группового переименования я ощутил панику ...
сильно много переменных для меня ( По крайней мере при первом запуске.

[Flasher]

Я правильно сделал?

Конечно. Создание папок там никто не запрещал. Тоталом давно пользуетесь?

Да, окно с файлами активное, пробовал выделять файлы

Как раз — нет. Выбор подразумевает либо установку курсора на объекте (в данном случае папке), либо его/их выделение. Про выделение файлов нигде не говорится. Прочтите название скрипта. В памятке с чего общие положения начинаются?

Если описание соответствует вашей задаче, ...

Script Helper поставил на "всякий"

Это устаревшая версия. Давно есть портабельный модуль. Пока не добрались до соотв. скриптов, он вам не нужен.

[sa]

Это можно прописать в каком то поле изменив 100 на 20 ?

Да, в поле "Маска для: имени файла".
Файлы должны быть выделены до вызова команды группового переименования.

[BenjaminLion]

Тоталом давно пользуетесь?

Пользуюсь активно с месяц, до этого эпизодически и весьма поверхностно.

Как раз — нет

Вот теперь всё заработало! Вышел из папки и выделив её нажал кнопку скрипта.

Это устаревшая версия

Значит отложим до времени.

Да, в поле "Маска для: имени файла".

Отлично, тоже работает.

Спасибо Всем откликнувшимся!
Flasher отдельное спасибо за терпение!

[Flasher]

Пользуюсь активно с месяц

Примерно так и подумал. Что ж, вас ждёт ещё много сюрпризов.

выделив её

Если папка одна, то выделять её не требуется. Достаточно не смещать курсор.

Пож-та. )

[mik777em]

Доброго дня. Использую скрипт на Autoit.
Поставил с оф. сайта сам Autoit, создал файл 1.au3 в который вставил этот код:

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

; Параметры: "%P" "%T" 50

If $CmdLine[0] < 3 Then
    MsgBox (0, "", "Недостаточно параметров, должно быть 3.")
    Exit
EndIf

Global $nDirCounter = 0
Global $nFileCounter = $CmdLine[3]

$hSearch = FileFindFirstFile($CmdLine[1] & "*.*")

While 1
    If $nFileCounter = $CmdLine[3] Then
        $nFileCounter = 0
        $nDirCounter += 1
        $sCurrentTarget = $CmdLine[2] & StringFormat("%03d", $nDirCounter)
        DirCreate($sCurrentTarget)
    EndIf
    $sFile = FileFindNextFile($hSearch)
    If @error Then Exit
    If @extended Then ContinueLoop ; без каталогов
    FileMove($CmdLine[1] & $sFile, $sCurrentTarget)
    $nFileCounter += 1
Wend

При запуске 1.au3 файла получаю: Недостаточно параметров, должно быть 3.


В коде вижу закоментированые параметры: "%P" "%T" 50
Подскажите, как запустить этот код с данными тремя параметрами, куда их в код вставить?

[Flasher]

mik777em
Можно было хотя бы посмотреть, с чего началось предыдущее обсуждение?