Страница 1 из 2

Перемещение\копирование файлов без подтверждения

Добавлено: Сб май 13, 2023 13:58
Lnk
Вопрос такой - создал кнопку на панели, в команде прописал cm_SelectCurrentExtension,cm_RenMov ( то есть она сперва выделяет все файлы с выбранным расширением, а потом нажимает Ф6) при нажатии этой кнопки выводится запрос перместить? можно ли сделать так что он без запроса перемещал?
ну то етсь как будто нажмешь Ф6 и все файлы просто переместятся в другую панель без доп нажатий.
надеюсь понятно написал вопрос..можно ли такое?

Добавлено: Сб май 13, 2023 14:24
LonerD
Я себе таким скриптом на AutoHotkeyV1 сделал для копирования и перемещения Тоталом (суть простейшая - вызов окна и автоматическое нажатие кнопки подтверждения):

Код: Выделить всё

; Total Commander DreamLair                        ;
; Script: Copy-move without confirmation           ;
; Required: Total Commander >=10.00                ;
; Script author: LonerD                            ;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
; Parameter:                                       ;
;    m or move - move files                        ;
;    any another - copy files                      ;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;

#NoEnv
#NoTrayIcon
#SingleInstance ignore
SetKeyDelay, 20, 20

if not ( WinExist("ahk_class TTOTAL_CMD") || WinActive("ahk_class TTOTAL_CMD") )
  ExitApp
WinGet, hw_TTOTAL_CMD, ID, A

CopyMove = %1%
if ( ( CopyMove = "m" ) || ( CopyMove = "move" ) )
  cm := 1005
  else
    cm := 3101

Gosub, SetTC3264
ButtonOK := TC3264 = 32 ? "TButton5" : "Button13"

PostMessage, 0x433, % cm,,, ahk_class TTOTAL_CMD
WinWait, ahk_class TInpComboDlg
Sleep, 20
SendMessage, 0x201,,, % ButtonOK, ahk_class TInpComboDlg
SendMessage, 0x202,,, % ButtonOK, ahk_class TInpComboDlg
ExitApp

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
; Total Commander Architecture (32 or 64 bit)      ;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
SetTC3264:
if ( A_Is64bitOS = 0 )
  TC3264 := 32
else
{
  WinGet, TCControls, ControlList, % "ahk_id " hw_TTOTAL_CMD
  Loop, Parse, TCControls, `n, `r
  {
    if ( A_LoopField ~= "ListBox(1|2|3)" )
    {
      TC3264 := A_LoopField ~= "TMyListBox(1|2|3)" ? 32 : 64
      break
    }
  }
}
Return
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;

Добавлено: Сб май 13, 2023 14:32
Lnk
LonerD писал(а):Я себе таким скриптом на AutoHotkeyV1 сделал:
...
хм автохоткея нету у мя. незнакомая штука.. но спасибо.
мне б на крайняк скриптом бы тогда хотя бы.. конеш через простую кнопку лучше было б..

Добавлено: Сб май 13, 2023 14:51
Monarch-LFV
Lnk
Создайте файл *.bat с текстом:

Код: Выделить всё

:: Параметры запуска %P%N %T
move %~dp1*%~x1 %2
Закинуть его на панель кнопок и в параметрах, соответственно прописать, что написано.

Добавлено: Сб май 13, 2023 15:34
Lnk
Monarch-LFV писал(а):Lnk
Создайте файл *.bat с текстом:

Код: Выделить всё

:: Параметры запуска %P%N %T
move %~dp1*%~x1 %2
Закинуть его на панель кнопок и в параметрах, соответственно прописать, что написано.
работает шикарно! спасибо огромное Monarch-LFV !
теперь многократно быстрей будет мне работать с файлами)

Добавлено спустя 36 минут:

Monarch-LFV но есть одна странность, если
в заголовке папки есть пробел то уже не работает.
а с каталогами одинаковыми названиями но с цифрами- вобще странно, к примеру если есть
Inf
Inf 1
то даже при открытой папке Inf 1 перенесет в папку Inf :shock:
немного неудобно, не знай почему так, но ничего страшного, прост буду учитывать такое

Добавлено: Сб май 13, 2023 15:41
Monarch-LFV
Lnk
Да, для пробелов не хватает кавычек, нужно вот так:

Код: Выделить всё

:: Параметры запуска %P%N "%T"
move "%~dp1*%~x1" %2
Обратите внимание на кавычки в параметрах.

Добавлено: Сб май 13, 2023 15:55
Lnk
Monarch-LFV писал(а):Lnk
Да, для пробелов не хватает кавычек, нужно вот так:

Код: Выделить всё

:: Параметры запуска %P%N "%T"
move "%~dp1*%~x1" %2
Обратите внимание на кавычки в параметрах.
да, добавил ковычки лучше стало, но не во все папки перемещает.. хммм..
например в такого вида папку не хочет c:\Users\Администратор\Downloads\Compressed\
жаль не видно что пишет, автозакрывает же батник

Добавлено: Сб май 13, 2023 16:04
imig73
Lnk
Путь к батнику:
%comspec% /k D:\move-x.cmd

Добавлено: Сб май 13, 2023 16:04
Monarch-LFV
В конце батника пропишите команду pause.
И посмотрите что пишет.

Добавлено: Сб май 13, 2023 16:13
Lnk
Monarch-LFV писал(а):В конце батника пропишите команду pause.
И посмотрите что пишет.
ошибка в синтаксисе команды пишет..

Добавлено спустя 4 минуты:
imig73 писал(а):Lnk
Путь к батнику:
%comspec% /k D:\move-x.cmd
в путь запуска попробовал записать в кнопке. ничего не меняется что работало то работает

///
а тут наткнулся на такое вот

TOTALCMD#BAR#DATA
%comspec% /c
? md "%P%O" && move %P%N "%P%O"
%Commander_Path%\WCMICONS.DLL,63
Move file under cursor into new directory

1
-1

ето не пригодится как нибудь? но тут я так понял каталог еще создается

Добавлено: Сб май 13, 2023 16:14
Monarch-LFV
А конкретнее? Там кроме этого еще есть текст вообще-то.

Добавлено: Сб май 13, 2023 16:20
Lnk
Monarch-LFV писал(а):А конкретнее? Там кроме этого еще есть текст вообще-то.
С\move C\files\for copy!\*.pdf "C:\Users\Администратор\Downloads\pics"
ошибка в синтаксисе команды

уф сорри долго переписывал

причем интерсно елси напр из c:\IDL\ в c:\files\dl from brow\ то норм перемещает. вот обратно уже нет, пишет что ошибка

Добавлено: Сб май 13, 2023 16:25
Monarch-LFV
Lnk
Вы внимательно прочитали мой второй код? Там кавычки не упустили в самом батнике? Перепроверьте.
PS. Ох и достанется вам от модератора за оформление сообщений, ждите... На форуме правила русского языка никто не отменял! Будете писать в таком духе, ждите бан.

Добавлено: Сб май 13, 2023 16:34
Lnk
Monarch-LFV писал(а):Lnk
Вы внимательно прочитали мой второй код? Там кавычки не упустили в самом батнике? Перепроверьте.
PS. Ох и достанется вам от модератора за оформление сообщений, ждите... На форуме правила русского языка никто не отменял! Будете писать в таком духе, ждите бан.
айяй кажется реально где то я ошибся. сейчас вобще удалил батник старый и новый создал. и вроде все работает. ДИКО ИЗВИНЯЮСЬ!(((
спасибо большое!!!

PS насчет правил не знаю, я ж на форум пришел а не в клуб русского... пишу по теме просто. если что не так - сорри.

Добавлено: Сб май 13, 2023 16:49
Monarch-LFV
Lnk
Еще вариант без батника, сразу кнопка:

Код: Выделить всё

TOTALCMD#BAR#DATA
cmd /c
move "*.%E" "%T"
WCMICONS.dll,59
Переместить все файлы с таким же расширением в другую панель