Перемещение выделеных файлов средствами PowerPro

[Human]

задача следующая

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

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

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

Inputdialog ("ppp=Enter new stuff", "Two variables")

*Clip Text |

fff=(Clip)

ddd=revindex(&(fff), "")

ggg=select(&(fff), &(ddd))

way=&(ggg)++&(ppp)

qwert=file.isfolder(&(way))

*if (&(qwert)eq 0) do

*Exec NewFolder "&(way)"

*File Move "&(fff)" "&(way)"

*else

*File Move "&(fff)" "&(way)"

*endif

[/code]

[dAnIK SeNT]

Пожалуйста:
Создаешь файл movefiles.powerpro в папке scripts:

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


static fold

local fname, path, g, d

if (Context==0) do

 Inputdialog ("fold=Enter new folder name", "")

 Context=1

endif

fname=arg(1)

d=revindex(fname, "")

g=select(fname, d)

path=g++fold



if (not(file.isfolder(path))) do

 exec NewFolder "&(path)"

endif

file.move(fname, path)



Создаешь command-list "Context"
Давишь кнопку "Install PowerPro Explorer Context Menu" или что-то в этом роде на закладке Setup.
Создаешь в этом command-list'е новую команду "MoveTo"
На левую кнопку цепляешь команду:

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


.movefiles("|")



Внимание! В поле ввода надо вводить имя папки относительно текущей папки.

[Saver]

Что-то у меня не получается такой "аленький цветочек". Все сделал как было сказано, но при вызове контекстного меню и выбора "MoveTo" ничего не происходило. Подскажите пожалуйсто в чем причина. Я толmrj учусь еще и мне больше нравиться учиться на примерах. <!--emo&:)--><!--endemo-->

[dAnIK SeNT]

вообще ничего? никаких сообщений об ошибках?

[Saver]

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->вообще ничего? никаких сообщений об ошибках? <!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Спасибо! Разобрался неправильно создал снтекстное меню ! Все заработало! Но у меня есть более сложная задача! Есть несколько файлов упакованных rar или zip. Необходимо также как и в предыдущей задаче выделить эти файлы и нажатием в контекстном меню кнопки расспаковать их всех в этот же каталог! И второй возможный вариант это распаковка каждого файла в каталог имеющий такоеже название как и файл (без расширения естественно). Кто что сможет сказать по этому поводй буду очень благодарен!