Total Commander

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

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 писал(а):Я и тот и тот тестил!

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

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

Вахмурка писал(а):В личку ему выслал.

Скрипт:

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

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

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

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