- Сообщения
- 2 089
- Реакции
- 145
ты так долго будешь ковыряться если файлов много....)))) У меня вот 625 файлов по 5 штук..
!['otbline' 'otbline' 'otbline'](/styles/default/xenforo/smiles.rudtp/5900_95.gif)
ты так долго будешь ковыряться если файлов много....)))) У меня вот 625 файлов по 5 штук..
Обоснуйты так долго будешь ковыряться если файлов много
скрипт есть для этого.....лови одним кликом все делается F2Обоснуй
Выделить эти файлы, нажать гор. клавишу, поставить галку, подправить шаблон, сек 5-10 вроде... не?![]()
; #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 по некоторым причинам не использую и недолюбливаю
![]()
Делаем в Тотале кнопочкуа еще мне надо скрипт который будет запихивать выделенные файлы(папки) в отдельную папку в другом окне....
%ComSpec% /c echo off&&md
"%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)
.)))Делаем в Тотале кнопочку
Посмотреть вложение 146812
1. Команда
2. ПараметрыКод:%ComSpec% /c echo off&&md
примечаниеКод:"%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 не "светилось"
переместит в т.ч. скрытые/системные файлы
каталоги не перемещает - только файлы
разве такое можно отрицать ... без головы трудноа Gad говорил что тут интелект нужен...
ну он про искуственный говорил....)))разве такое можно отрицать ... без головы трудно![]()
два нажатия клавиш и одно движение мышкив этой же панели
прикалываешься...?Я всего лишь намекал что в твоей постановке задачи отсутствует условие по которому будет формироваться имя папки
А еще, что задача вполне решаема без всяких прибамбасов в ТС. То, что предложил @dastin делается в 3 нажатия клавиш и одно движение мышкой. А вариант
два нажатия клавиш и одно движение мышки
Проще понимать как все работает, чем городить волшебные кнопки и раз в год вспоминать где эта волшебная кнопка, когда она наконец нужна![]()
625x(1) тоже не хило... Ты 3 раза как минимум за эту тему меняла условие задачи, что делает попытки помочь тщетными и лишенными смысла625x(3+1)
я знаю что ты тоже гений....))))625x(1) тоже не хило... Ты 3 раза как минимум за эту тему меняла условие задачи, что делает попытки помочь тщетными и лишенными смысла![]()
'=====================================================================
' Создание папки и перемещение в нее выделенных файлов и папок
' Для создания папок в противоположной панели
' в параметрах вызова из 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
а этот скрипт что будет делать?А я всё со скриптом
Код:'===================================================================== ' Создание папки и перемещение в нее выделенных файлов и папок ' Для создания папок в противоположной панели ' в параметрах вызова из 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