Как по хоткею переместить файл по сценарию - по относительному пути ?

[Dalm]

Добрый день.
Помогите решить вопрос.

Нужно скопировать произвольный файл по определенному маршруту.
Папка в которую по хоткею нужно скопировать файл - имеет не абсолютный путь, а относительный.

Чтобы попасть в эту относительную папку - нужно подняться на уровень назад (БэкСпейс), потом зайти в папку "стереть" (Энтер), потом зайти в папку "на отправку" (Энтер) и там вставить Ctrl+V из буфера обмена.
Копирование осуществляется в программе ТоталКоммандер (то есть это не ПроводникВиндоус).
(Я предполагаю, нужно чтобы этот хоткей сперва копировал файл, и при этом запоминал его абсолютный путь - а уже затем определял путь для его копирования.)

 

[InnI]

имеет не абсолютный путь, а относительный

Относительно чего? Относительно самого копируемого файла? Относительно файла скрипта? Относительно указанного пути?

Это относительно копируемого файла.

$FullPath = "D:\dir1\dir2\file.txt"
$DirsPath = StringRegExp($FullPath, ".+\\", 1)[0]
$CopyPath = $DirsPath & "..\стереть\на отправку\"
FileCopy($FullPath, $CopyPath)

 

[Dalm]

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

Сообщение автоматически объединено: 28 Дек 2023

И здесь в коде - не указан хоткей

 

[InnI]

сначала определить адрес выбранного файла

Файла, выделенного в Total Commander?

WinActivate("Total Commander")
Send("^{ins}")
Sleep(333)
$FullPath = ClipGet()
MsgBox(0, "", $FullPath)

здесь в коде - не указан хоткей

Здесь всё-таки не стол заказов. Самостоятельно сложно по справке?

HotKeySet()

 

[Dalm]

Файла, выделенного в Total Commander?
Самостоятельно сложно по справке?

Да, в ТоталКоммандер.

Пока не работает.
Вот так установил хоткей:

HotKeySet("^{SPACE}", "SendHK")

While 1
    Sleep(100)
WEnd

Func SendHK()
WinActivate("Total Commander")
;Send("^{SPACE}")
Sleep(333)
$FullPath = ClipGet()
MsgBox(0, "", $FullPath)

$DirsPath = StringRegExp($FullPath, ".+\\", 1)[0]
$CopyPath = $DirsPath & "..\стереть\на отправку\"
FileCopy($FullPath, $CopyPath)
EndFunc

Скрипт выдает ошибку при нажатии на хоткей.

 

[InnI]

Скрипт выдает ошибку

Я должен сам догадаться, какую ошибку у вас скрипт выдаёт?

В вашем скрипте отсутствует эта строка

Send("^{ins}")

Это копирование выделенного файла в буфер обмена. Затем из буфера получаем полный путь к файлу. Вероятно, у вас ошибка по причине отсутствия этой строки.

 

[Dalm]

Send("^{ins}")

Добавил в код выделение.
Но скрипт теперь при копировании в одном ТоталКомандере - переключается на другой ТоталКоммандер.
Соответственно в другом окне тоталкомандера - файлы другие и копирования не происходит.

 

[InnI]

при копировании в одном ТоталКомандере - переключается на другой ТоталКоммандер

И об этом я тоже должен был догадаться? Вы реально меня за ясновидящего считаете?

Просто удалите или закомментируйте строку активации окна.

; WinActivate("Total Commander")

Но теперь вам нужно самостоятельно следить за активностью нужного окна Командира.

 

[Dalm]

[B]InnI[/B], Спасибо, вроде работает теперь.​

Только почему-то иногда залипает клавиша "Ctrl"

 

[InnI]

залипает клавиша "Ctrl"

Попробуйте так

...
Send("^{ins}")
ControlSend("", "", "", "") ; <== добавить
...

или так

...
Send("^{ins}")
DllCall('user32.dll', 'none', 'keybd_event', 'byte', 0x11, 'byte', 0, 'dword', 2, 'ulong_ptr', 0) ; <== добавить
...

 

[AZJIO]

перед отправкой Send проверяет что клавиши отжаты, предотвращая нежелательные.

Func _SendEx($sSend_Data)
    Local $hUser32DllOpen = DllOpen("User32.dll")
    While _IsPressed("10", $hUser32DllOpen) Or _IsPressed("11", $hUser32DllOpen) Or _IsPressed("12", $hUser32DllOpen)
        Sleep(30)
    WEnd
    Send($sSend_Data)
    DllClose($hUser32DllOpen)
EndFunc   ;==>_SendEx

 

[InnI]

перед отправкой Send проверяет что клавиши отжаты

Если клавиша залипла - скрипт "встанет" в ожидании. Как пользователь догадается вручную отжать клавишу?

Прям не тема, а кастинг на шоу экстрасенсов

 

[AZJIO]

Если клавиша залипла - скрипт "встанет" в ожидании. Как пользователь догадается вручную отжать клавишу?

Желательно, чтобы скрипт в конце выдал сообщение об успешной операции, и если его нет, то автор будет пытаться нажать хоткей повторно думая, что неправильно нажал/недожал и тогда отлипнет и пройдёт комбинация. Если же залипание останется, то к примеру с Ctrl может нажаться ещё один модификатор и хоткей выполнит совсем другое. Где-то у меня был код, который не ожидает, а посылает команду отжатия клавиш, типа Send("{CTRLUP}"), но не могу его найти. Все три клавиши надо посылать или делать раздельные условия. Но во всех моих программах используется просто Sleep(30), так что я оставил как есть, кстати проблем не было.

Используй WinWait(), чтобы получить дескриптор и ControlSend(), чтобы высылать дескриптору, даже если окно свёрнуто. Хотя отработает всё равно мгновенно, даже свернуть не успеешь.

Используй FileExists(), для проверки успешности операции. Или можно при неудаче выдать сообщение что ожидаемый файл не существует.

Можешь посмотреть пример автоматизации окна, например если окно не существует, то надо красиво сообщить об этом, а не получить падение скрипта.

 

[Andrey_A]

Зачем такие извращения, файловые менеджеры обычно имеют параметры командной строки...
В Total Commander их полно
Передавайте в скрипт и с помощью $CmdLine получайте то что нужно, формируйте путь и копируйте
А игра с нажатиями может выйти боком...

 

[lettterssino]

Зачем такие извращения, файловые менеджеры обычно имеют параметры командной строки...
В Total Commander их полно
Передавайте в скрипт и с помощью $CmdLine получайте то что нужно, формируйте путь и копируйте
А игра с нажатиями может выйти боком...

Тоже не понял зачем такие махинации сложные, ну в край использовать горячие клавиши их там тоже море.