Skif_off
Gold Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору i7430 Срастил MultiScript с VBScript, дабы обойтись без лишних файлов: VBS-скрипт будет генериться самим скриптом Multi Commander, дабы не множить сущности. VBS-скрипт будет создаваться там же, в %Temp%, рядом со списком и с тем же именем. Один момент: GetRandomValue() заменил на GetTime(), т.к. первая какая-то странная - выдаёт одно и то же значение в течении сессии О_о Вторая даст именно то, что нужно - уникальное имя, можно запустить сразу несколько задач. Поэтому если первый скрипт так или иначе будете использовать или приспособите под что-то своё, то лучше исправьте сразу. Код: @var $alist = GetSelectedPaths(); @var $spath = GetTargetPath(); @var $sfc = "B:\\FastCopy\\FastCopy.exe"; @var $sfile = TranslateEnvString("%TEMP%") + "\\tmp" + GetTime() + ".lst"; @var $svbfile = $sfile + ".vbs"; @var $ssave; if(SaveArray($sfile, $alist, 1, 0)) { $ssave = "Set WshShell = CreateObject(\"WScript.Shell\")\r\nSet FSO = CreateObject(\"Scripting.FileSystemObject\")\r\nWshShell.Run \"\"\"" + $sfc + "\"\" /cmd=force_copy /force_close /no_confirm_stop /speed=full /srcfile=\"\"" + $sfile + "\"\" /to=\"\"" + $spath + "\"\"\", 1, True\r\nFSO.DeleteFile \"" + $sfile + "\", 1\r\nFSO.DeleteFile \"" + $svbfile + "\", 1" if(SaveStringToFile($svbfile, $ssave, 0)) { MC.Run CMD='"{$svbfile}"' SHELL } else { MessageBox("Run FastCopy", "Could not create " + $svbfile + "!", 48); @var $opts[] = {"NOPROGRESS", "NODIALOG", "SILENT"}; DeleteFile($sfile, $opts); } } else { MessageBox("Run FastCopy", "Could not create " + $sfile + "!", 48); } | P.S. Пришлось отлаживать самому, иначе было бы очень медленно, но вообще, это было увлекательно )) Временами Multi Commander не падал, а внезапно исчезал, быстро, решительно, молча - бах и нету Трудности почему-то были с $ssave, не знаю, почему начал нормально работать именно такой вариант, когда её значение задавал не при определении в начале, а позже, уже внутри условного оператора. Добавлено: Раз уж с компа, подкрасил код. | Всего записей: 6462 | Зарегистр. 28-01-2008 | Отправлено: 15:33 14-06-2017 | Исправлено: Skif_off, 15:59 14-06-2017 |
|