Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » FastCopy

Модерирует : gyra, Maz

 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

Открыть новую тему     Написать ответ в эту тему

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

Выбрано: копировать без замены, без иконки в трее с автозакрытием окна, проверкой и приблизительным подсчетом оставшегося времени (ЕМНИП, рекомендуется убрать в случае перемещения и удаления).

Всего записей: 6462 | Зарегистр. 28-01-2008 | Отправлено: 21:58 24-07-2014 | Исправлено: Skif_off, 00:53 14-07-2018
Открыть новую тему     Написать ответ в эту тему

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » FastCopy


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru