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

  • Спасибо
Реакции: NatalieRedFox_333
Gad сказал(а):
Обоснуй :)
Выделить эти файлы, нажать гор. клавишу, поставить галку, подправить шаблон, сек 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
 
Последнее редактирование:
Да мне как раз не надо :) ahk по некоторым причинам не использую и недолюбливаю :)
 
NatalieRedFox_333 сказал(а):
а еще мне надо скрипт который будет запихивать выделенные файлы(папки) в отдельную папку в другом окне....
Нажмите, чтобы раскрыть...
Делаем в Тотале кнопочку
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
dastin сказал(а):
Делаем в Тотале кнопочку
Посмотреть вложение 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)'
 
а Gad говорил что тут интелект нужен.... :D
 
Последнее редактирование:
Я всего лишь намекал что в твоей постановке задачи отсутствует условие по которому будет формироваться имя папки :)
А еще, что задача вполне решаема без всяких прибамбасов в ТС. То, что предложил @dastin делается в 3 нажатия клавиш и одно движение мышкой. А вариант
dastin сказал(а):
в этой же панели
Нажмите, чтобы раскрыть...
два нажатия клавиш и одно движение мышки :)
Проще понимать как все работает, чем городить волшебные кнопки и раз в год вспоминать где эта волшебная кнопка, когда она наконец нужна '))'
 
Последнее редактирование:
  • Спасибо
Реакции: NNN5 и langry
Gad сказал(а):
Я всего лишь намекал что в твоей постановке задачи отсутствует условие по которому будет формироваться имя папки :)
А еще, что задача вполне решаема без всяких прибамбасов в ТС. То, что предложил @dastin делается в 3 нажатия клавиш и одно движение мышкой. А вариант

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

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

' Для создания папок в противоположной панели
'   в параметрах вызова из 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
lev сказал(а):
А я всё со скриптом
Код: 
'=====================================================================
' Создание папки и перемещение в нее выделенных файлов и папок

' Для создания папок в противоположной панели
'   в параметрах вызова из 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
Нажмите, чтобы раскрыть...
а этот скрипт что будет делать?
 
Создавать папку в противоположной панели ТС и перемещать туда выделенные файлы и папки. Если есть несколько одноименных файлов (в режиме Branch View), то ругаться, но без особой обработки данной ситуации.
 
  • Спасибо
Реакции: NatalieRedFox_333
будем пробовать....)))
 
Для ответа нужно войти/зарегистрироваться
Верх Низ