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

[zlodei1988]

Все просто великолепно! все работает!!! все супер!! Вы ну просто Величайшие умы всех времен и народов!!! удачи Вам, процветания и новых интересных изобретений!!!)

[Flasher]

В том то и дело, что я буду смотреть эскизы файлов, выделять, нажимать кнопку, и они начинают перемещаться в создаваемые папки, вот что надо сделать то(

И в чём проблема?
В этом скрипте поставить
Поставить Const Rank = 1 и заменить строку n = 1 на

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

n = InputBox("Введите имя-число первой папки :", "Создание каталогов и перемещение в них выделенного")

Ну, можно ещё число на разбиение задавать. Вместо

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

Count    = CInt(WScript.Arguments(2))

вставить

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

Count    = CInt(InputBox("Введите число, на которое следует разбивать :", "Создание каталогов и перемещение в них выделенного"))

А, ну и поменять копирование на перемещение, само собой:

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

    If FSO.FileExists(F)   Then FSO.CopyFile   F, Path

на

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

    If FSO.FileExists(F)   Then FSO.MoveFile   F, Path

и

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

      FSO.CopyFolder F, Path

на

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

      FSO.MoveFolder F, Path

[zlodei1988]

Ой Товарищи если бы я что нибудь в этом понимал, я бы сделал))) извините меня глупенького))

[Flasher]

А что неясного? См. код по ссылке и произодим замену текста.
Дополнил кое-что выше.

[Вахмурка]

2Flasher
Хватит прикалываться, выложи целиком измененный код, а то у товарища мозги закипят

2zlodei1988
Надо было моим скриптом. Он проще.

[zlodei1988]

Я и тот и тот тестил! А Вы ВАХМУРКА вообще красавец!

[Flasher]

Вахмурка
А где я прикалывался? Не хочу чужой скрипт с парой тройкой небольших коррекций сюда выкладывать. К тому же там тема профильная и больше подходит.

Надо было моим скриптом. Он проще.

Что ты имел в виду? Не вижу никаких ссылок.

Я и тот и тот тестил!

И тот и тот - что и на каком языке?

[Вахмурка]

Что ты имел в виду? Не вижу никаких ссылок

В личку ему выслал.

И тот и тот - что и на каком языке?

Второй - видимо, мой (см. выше). А насчет языка - последние лет шесть, кроме С++, общаюсь исключительно на PowerPro

[Flasher]

В личку ему выслал.

Чтобы на флуд не тянуло, ссылкой закрепи, т.с.

То, что один (второй) на PP, это я понял. А первый?

[Вахмурка]

Какую ссылку?! Во избежание флуда привожу сообщение полностью:

Скрипт:

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

args Sel, TPath, From
local F

if(not From) do
   x9++
else
   x9 = From
   quit
endif

for each word F in Sel
   file.move(F, TPath ++ x9)
endfor

Образы кнопок:

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

TOTALCMD#BAR#DATA
e:\Utils\PowerPro\powerpro.exe
runfile.test("%P%S", "%T", 12)
E:\Storage\Graphics\Icons\Visual Basic\BULLSEYE.ICO
Начальный запуск


-1

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

TOTALCMD#BAR#DATA
e:\Utils\PowerPro\powerpro.exe
runfile.test("%P%S", "%T")
E:\Storage\Graphics\Icons\Visual Basic\BULLSEYE.ICO
Перемещение


-1

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

Накануне я выслал ему это.

[zlodei1988]

Так и было!)

[Riemann]

Дабы не плодить мини топики, опишу свою проблему:
есть папки с фильмами и скриншотами к ним, теперь бы надо автоматически создавать папки внутри этих папок (с названием фильма) и перемещать туда те графические файлы.

[Avada]

Riemann
Это пока проблема, но не точное техзадание. Откуда брать название фильма? Какие графические файлы считать "теми", а не "этими"?

[Riemann]

Riemann
Это пока проблема, но не точное техзадание. Откуда брать название фильма? Какие графические файлы считать "теми", а не "этими"?

Если конкретизировать, то ситуация такая: имеем в папке Политех
Политех.avi
Политех.jpg
Политех.000.jpg
Политех.001.jpg
Политех.002.jpg
Политех.003.jpg
Необходимо превратить беспорядок в этой папке в такой вид
Политех\ (внутри Политех.jpg Политех.000.jpg Политех.001.jpg Политех.002.jpg Политех.003.jpg )
Политех.avi
Т.е. в основном картинки jpg и их надо упрятать в папку с название видео файла в этой же папке.

[Flasher]

А jpg обязательно будут иметь спереди базовое имя avi?