Skif_off
Gold Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: TOTALCMD#BAR#DATA %COMMANDER_PATH%\AutoIt.exe %COMMANDER_PATH%\Utilities\FastCopy\FastCopy.au3 %WL "%T" %COMMANDER_PATH%\Utilities\FastCopy\FastCopy.exe Копировать с FastCopy %COMMANDER_PATH%\Utilities\FastCopy\ -1 | поправить пути на свои, AutoIt.exe можно взять из http://www.autoitscript.com/autoit3/files/archive/autoit/autoit-v3.3.8.1.zip (в 3.3.12.0 файл заметно подрос) и положить рядом с TOTALCMD.EXE. Предполагается использовать обе разрядности в зависимости от разрядности системы: положить рядом FastCopy.exe и FastCopy64.exe. Сохранить как FastCopy.au3: Код: #NoTrayIcon Opt('WinWaitDelay', 100) Local $sExeName = 'FastCopy', $iExeVersion, $hFile, $bText ;Выбираем версию FastCopy в соотв. с разрядностью ОС If @OSArch = 'X64' And FileExists(@ScriptDir & '\FastCopy64.exe') Then $sExeName = 'FastCopy64' Switch $CmdLine[0] Case 2 $iExeVersion = FileGetVersion(@ScriptDir & '\' & $sExeName & '.exe') $iExeVersion = StringRegExpReplace($iExeVersion, '\.|,', '') If $iExeVersion < 3320 Then ;Разрешаем проблему с BOM при использовании /srcfile_w= на версиях младше 3.32 ;Открываем и читаем в бинарном режиме файл со списком начиная с 3го байта (исключаем BOM) $hFile = FileOpen($CmdLine[1], 1+16) If $hFile = -1 Then MsgBox(4096, 'Ошибка', 'Не удалось открыть файл cписка!') Exit EndIf FileSetPos($hFile, 2, 0) $bText = FileRead($hFile) ;Переходим в начало файла и пишем прочитанное ранее FileSetPos($hFile, 0, 0) FileWrite($hFile, $bText) FileClose($hFile) EndIf ;Запуск FastCopy RunWait('"' & @ScriptDir & '\' & $sExeName & '.exe" /cmd=noexist_only /auto_close /verify /open_window /estimate /srcfile_w="' & $CmdLine[1] & '" /to="' & $CmdLine[2] & '"') Sleep(100) FileDelete($CmdLine[1]) Case Else MsgBox(48 + 4096, 'FastCopy', 'Проверьте параметры запуска!' & @CRLF & @CRLF & _ 'Копирование по списку: "список" "каталог назначения"' & @CRLF & _ ' Total Commander: "%WL" "%T"' & @CRLF & _ ' Double Commander: %LW %Dt') EndSwitch | Выбрано: копировать без замены, без иконки в трее с автозакрытием окна, проверкой и приблизительным подсчетом оставшегося времени (ЕМНИП, рекомендуется убрать в случае перемещения и удаления). | Всего записей: 6487 | Зарегистр. 28-01-2008 | Отправлено: 21:58 24-07-2014 | Исправлено: Skif_off, 00:53 14-07-2018 |
|