выделете несколько файлов
потом из контекстного меню или по хоткею
нужно вывести диалоговое окно. чтобы вбить название папки, куда будут перемещены выделеные файлы
папка должна создаваться в томже каталоге, что и выделеные файлы
затем все файлы переносятс в только что созданную папку.
как ни бился, так и не смог решить данную проблему.
вот последний вариант, на котором я остановился. никуда не годный, но все же привожу его листинг. Работает очень медленно, и перед перемещением каждого файла вывдится диалоговое окно
- Код: выделить все
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