Перемещение файлов в одноименную папку Total Comander

NatalieRedFox_333

Чего мне бояться? - подумала Красная Шапочка...)))
Топикстартер
Сообщения
1 512
Реакции
115

Gad

Сообщения
2 781
Реакции
1 316
  • Спасибо
Реакции: NatalieRedFox_333

NatalieRedFox_333

Чего мне бояться? - подумала Красная Шапочка...)))
Топикстартер
Сообщения
1 512
Реакции
115
Обоснуй :)
Выделить эти файлы, нажать гор. клавишу, поставить галку, подправить шаблон, сек 5-10 вроде... не?:)
скрипт есть для этого.....лови одним кликом все делается F2
за 10 сек их 50 шт можно упоковать )))) :D

Код:
; #IfWinActive ahk_class CabinetWClass ; Only run AutoHotkey script when Windows explorer has the focus

F2::                 
Loop 25
{
Send +{Down}
Sleep 100
Send +{Down}
Sleep 100
Send +{Down}
Sleep 100

Send, {AppsKey}         ; Press the "context menu" key
Sleep 200
Send n                  ; Select "Send to" with the "n" key
Sleep 200
Send {Right}            ; Open "Sent to" with the "right arrow" key
Sleep 200
Send {Enter}            ; Execute "Compressed (zipped) folder" with the "Enter" key
Sleep 500
Send {Enter}         
Sleep 500

;KeyWait, F3, D  ; Wait for the F2 button to be pressed down.

Send {Down}
Sleep 100

;KeyWait, F3, D  ; Wait for the F2 button to be pressed down.
}
return

; =======================================

F9::exitapp
return

^F12::Reload
return

F12::Suspend
return

^R:: ; Reload Script
MouseClick, right, 1800, 1070
Sleep 100
return
 
Последнее редактирование:

Gad

Сообщения
2 781
Реакции
1 316
Да мне как раз не надо :) ahk по некоторым причинам не использую и недолюбливаю :)
 

NatalieRedFox_333

Чего мне бояться? - подумала Красная Шапочка...)))
Топикстартер
Сообщения
1 512
Реакции
115

dastin

Некромант-любитель
12 лет на форуме
Сообщения
1 562
Реакции
1 365
а еще мне надо скрипт который будет запихивать выделенные файлы(папки) в отдельную папку в другом окне....
Делаем в Тотале кнопочку
1633543909568.png


1. Команда
Код:
%ComSpec% /c echo off&&md
2. Параметры
Код:
"%T\%O"&for /f "usebackq delims=" %%# in (`type %WF`) do (move "%%#" "%T\%O\"||robocopy.exe . "%T\%O" "%%#" /mov /copyall /ia:sh /nfl /ndl /njh /njs /np /ns /nc)
примечание
в данном виде будет создаваться каталог с именем файла под курсором в противоположной панели, ежели надо его создать в этой же панели, то
из строки параметров удалить %T\ в трёх местах - т.е. "%T\%O"

3. Иконка по вкусу
4. Галка взведена - чтобы окно CMD не "светилось"

переместит в т.ч. скрытые/системные файлы
каталоги не перемещает - только файлы
 
  • Спасибо
Реакции: NatalieRedFox_333

NatalieRedFox_333

Чего мне бояться? - подумала Красная Шапочка...)))
Топикстартер
Сообщения
1 512
Реакции
115
Делаем в Тотале кнопочку
Посмотреть вложение 146812

1. Команда
Код:
%ComSpec% /c echo off&&md
2. Параметры
Код:
"%T\%O"&for /f "usebackq delims=" %%# in (`type %WF`) do (move "%%#" "%T\%O\"||robocopy.exe . "%T\%O" "%%#" /mov /copyall /ia:sh /nfl /ndl /njh /njs /np /ns /nc)
примечание
в данном виде будет создаваться каталог с именем файла под курсором в противоположной панели, ежели надо его создать в этой же панели, то
из строки параметров удалить %T\ в трёх местах - т.е. "%T\%O"

3. Иконка по вкусу
4. Галка взведена - чтобы окно CMD не "светилось"

переместит в т.ч. скрытые/системные файлы
каталоги не перемещает - только файлы
.)))'cooll)'
 

NatalieRedFox_333

Чего мне бояться? - подумала Красная Шапочка...)))
Топикстартер
Сообщения
1 512
Реакции
115
а Gad говорил что тут интелект нужен.... :D
 

NatalieRedFox_333

Чего мне бояться? - подумала Красная Шапочка...)))
Топикстартер
Сообщения
1 512
Реакции
115
Последнее редактирование:

Gad

Сообщения
2 781
Реакции
1 316
Я всего лишь намекал что в твоей постановке задачи отсутствует условие по которому будет формироваться имя папки :)
А еще, что задача вполне решаема без всяких прибамбасов в ТС. То, что предложил @dastin делается в 3 нажатия клавиш и одно движение мышкой. А вариант
в этой же панели
два нажатия клавиш и одно движение мышки :)
Проще понимать как все работает, чем городить волшебные кнопки и раз в год вспоминать где эта волшебная кнопка, когда она наконец нужна '))'
 
Последнее редактирование:
  • Спасибо
Реакции: NNN5 и langry

NatalieRedFox_333

Чего мне бояться? - подумала Красная Шапочка...)))
Топикстартер
Сообщения
1 512
Реакции
115
Я всего лишь намекал что в твоей постановке задачи отсутствует условие по которому будет формироваться имя папки :)
А еще, что задача вполне решаема без всяких прибамбасов в ТС. То, что предложил @dastin делается в 3 нажатия клавиш и одно движение мышкой. А вариант

два нажатия клавиш и одно движение мышки :)
Проще понимать как все работает, чем городить волшебные кнопки и раз в год вспоминать где эта волшебная кнопка, когда она наконец нужна '))'
прикалываешься...?
625x(3+1) = .. ? 'otbline'
 
Последнее редактирование:

NatalieRedFox_333

Чего мне бояться? - подумала Красная Шапочка...)))
Топикстартер
Сообщения
1 512
Реакции
115
625x(1) тоже не хило... Ты 3 раза как минимум за эту тему меняла условие задачи, что делает попытки помочь тщетными и лишенными смысла :)
я знаю что ты тоже гений....)))) :)

я не меняла условие и даже не ставила.... мне просто надо было найти решение этой задачи - закинуть выделенные файлы(папки) в другую
Конечно это можно сделать постучав по клаве ну 5 раз... ну 20 раз, но не 625.... 'otbline'
 
Последнее редактирование:

lev

Модератор
15 лет на форуме
Сообщения
2 056
Реакции
1 946
А я всё со скриптом
Код:
'=====================================================================
' Создание папки и перемещение в нее выделенных файлов и папок

' Для создания папок в противоположной панели
'   в параметрах вызова из TC должно быть прописано:
' "%L" "%T"
'=====================================================================

If WScript.Arguments.Count = 0 Then
  MsgBox "Не указаны параметры!", vbOKOnly + vbError, "Внимание!"
  Wscript.Quit
End If

Dim TempFile, FSO, SelFile
Set FSO      = CreateObject("Scripting.FileSystemObject")
Set TempFile = FSO.OpenTextFile(WScript.Arguments(0), 1)

NewFilePath = WScript.Arguments(1) 
counter=1
NewDir=NewFilePath & "1"
Do While FSO.FolderExists(NewDir)
  counter = counter + 1
  NewDir = NewFilePath & "\" & counter & "\"
Loop

FSO.CreateFolder (NewDir)

Dim FileName, FilePath, DashInName, NewFilePath
Do While Not TempFile.AtEndOfStream
  
  fp = TempFile.ReadLine
  If Right(fp, 1) = "\" Then
    Set SelFile = FSO.GetFolder(fp)
    'FSO.MoveFolder SelFile, NewDir & "\"
    FSO.CopyFolder SelFile, NewDir & "\"
    FSO.DeleteFolder SelFile, True
  Else
    Set SelFile = FSO.GetFile(fp)
    If Not FSO.FileExists(NewDir & "\" & SelFile.Name) Then
      FSO.MoveFile SelFile, NewDir & "\"
    Else
      MsgBox "Уже существует файл " & SelFile.Name & " в папке " & NewFilePath, vbOKOnly + vbExclamation, "Внимание!"
    End If
  End If

Loop
Set TempFile = Nothing
Set FSO      = Nothing
Set SelFile  = Nothing
WScript.Quit
 
  • Спасибо
Реакции: NatalieRedFox_333

NatalieRedFox_333

Чего мне бояться? - подумала Красная Шапочка...)))
Топикстартер
Сообщения
1 512
Реакции
115
А я всё со скриптом
Код:
'=====================================================================
' Создание папки и перемещение в нее выделенных файлов и папок

' Для создания папок в противоположной панели
'   в параметрах вызова из TC должно быть прописано:
' "%L" "%T"
'=====================================================================

If WScript.Arguments.Count = 0 Then
  MsgBox "Не указаны параметры!", vbOKOnly + vbError, "Внимание!"
  Wscript.Quit
End If

Dim TempFile, FSO, SelFile
Set FSO      = CreateObject("Scripting.FileSystemObject")
Set TempFile = FSO.OpenTextFile(WScript.Arguments(0), 1)

NewFilePath = WScript.Arguments(1)
counter=1
NewDir=NewFilePath & "1"
Do While FSO.FolderExists(NewDir)
  counter = counter + 1
  NewDir = NewFilePath & "\" & counter & "\"
Loop

FSO.CreateFolder (NewDir)

Dim FileName, FilePath, DashInName, NewFilePath
Do While Not TempFile.AtEndOfStream
 
  fp = TempFile.ReadLine
  If Right(fp, 1) = "\" Then
    Set SelFile = FSO.GetFolder(fp)
    'FSO.MoveFolder SelFile, NewDir & "\"
    FSO.CopyFolder SelFile, NewDir & "\"
    FSO.DeleteFolder SelFile, True
  Else
    Set SelFile = FSO.GetFile(fp)
    If Not FSO.FileExists(NewDir & "\" & SelFile.Name) Then
      FSO.MoveFile SelFile, NewDir & "\"
    Else
      MsgBox "Уже существует файл " & SelFile.Name & " в папке " & NewFilePath, vbOKOnly + vbExclamation, "Внимание!"
    End If
  End If

Loop
Set TempFile = Nothing
Set FSO      = Nothing
Set SelFile  = Nothing
WScript.Quit
а этот скрипт что будет делать?
 

lev

Модератор
15 лет на форуме
Сообщения
2 056
Реакции
1 946
Создавать папку в противоположной панели ТС и перемещать туда выделенные файлы и папки. Если есть несколько одноименных файлов (в режиме Branch View), то ругаться, но без особой обработки данной ситуации.
 
  • Спасибо
Реакции: NatalieRedFox_333

NatalieRedFox_333

Чего мне бояться? - подумала Красная Шапочка...)))
Топикстартер
Сообщения
1 512
Реакции
115
будем пробовать....)))