Обсуждение темы "Обмен кнопками"

Flasher

shveicar писал(а):то при нажатии на кнопку копируются только файлы вложенные в начальный каталог

' Копировать папку под курсором в активную панель
' Параметры: "Окончание_названия_папки"
' Пример: " {(}1{)}"
'======================================
With CreateObject("WScript.Shell")
  .Exec("%COMMANDER_PATH%\Utils\TCMC\TCMC.exe CM3100")
  WScript.Sleep 10
  .SendKeys "{END}" & WScript.Arguments(0) &"~"
End With

- TCMC

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

' Копировать папку под курсором
' Параметры: %P%N %P%N_
'==============================
CreateObject("Scripting.FileSystemObject").GetFolder(WScript.Arguments(0)).Copy WScript.Arguments(1)

shveicar

Спасибо пока не могу скачать TC Multiple Commands 0.12 (выскакивает окно загрузка прервана) видимо что то у них на сервере. Попробую позже.
Сегодня обнаружил одну замечательную копку

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

TOTALCMD#BAR#DATA
%ComSpec% /c
for /f "delims=" %%a in (%F) do move "%%a"\. ..
%windir%\system32\shell32.dll,146
кнопка перемещения выделенных файлов и папок на один уровень вверх

1
-1

Единственный момент после перемещения окно в total не обновляется, а по логике, должен быть переход в ту-же директорию, что и перенос, и если имя файла достаточно длинное, то кнопка не срабатывает. Есть ли способ это исправить?

Flasher

shveicar писал(а):видимо что то у них на сервере

Проверил обе ссылки - реботают. Хотя,думаю, второго скрипта будет достаточно. Я просто верхний пример привёл для профилактики, чтобы использовался TC-шний инструмент.

shveicar писал(а):Есть ли способ это исправить?

Из этого скрипта удалить

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

' с удалением указанного родительского каталога

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

Set Folder = FSO.GetFolder(TargetPath&""&WScript.Arguments(1))
   If Folder.Size < 1 Then
     Folder.Delete
   End If

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

Set Folder = Nothing

Оставить только первый параметр.

shveicar

Хотя,думаю, второго скрипта будет достаточно

Ну да, это то что надо. А со скриптом сейчас попробую. Спасибо

Flasher

shveicar
В общем, понятно, да? Это по-простому - без всяких окон.

shveicar

Попробовал -Скрипт работает - только если в верхнем каталоге не существует такого же файла или папки, (а если существует то нечего не происходит) - в случае с кнопкой, которую я приводил, файлы перемещаются с заменой(если их имена совпадают), по хорошему надо чтобы скрипт (в случае совпадения имен) выдавал окно - варианты выбора при совпадении, или допустим добавлял (_ или номер) к имени перемещенного файла. Да, и в случае перемещения файлов окно остается в пустой директории (как и в случае с кнопкой), приходится вручную жать переход на уровень вверх (хотя, если это проблема, то можно не брать её во внимание)

Flasher

shveicar писал(а):Скрипт работает - только если в верхнем каталоге не существует такого же файла или папки

Ну да, я специально это условие поставил. А что, надо переписывать файлы и папки? Файлы, которых нет, будут перемещаться.

shveicar писал(а):по хорошему надо чтобы скрипт (в случае совпадения имен) выдавал окно - варианты выбора при совпадении, или допустим добавлял (_ или номер) к имени перемещенного файла.

Хм. Второе могу, только там придётся использовать методы копирования и удаления, а не сразу перемещения. И там рекурсию придётся пофайлого делать. С первым что-то не хочется возиться.

shveicar писал(а):Да, и в случае перемещения файлов окно остается в пустой директории (как и в случае с кнопкой), приходится вручную жать переход на уровень вверх (хотя, если это проблема, то можно не брать её во внимание)

С переходом-то несложно. Но: а если, допустим, выделены не все файлы и папки для перемещения, тогда как?

shveicar

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

если, допустим, выделены не все файлы и папки для перемещения, тогда как?

конечно должен быть переход в тот же каталог куда переносятся файлы, поскольку данный скрипт позволит существенно сократить время
при работе с большим количеством файлов. Да и в принципе (можно рассмотреть вариант без перехода) удобно ведь сделать на панели две кнопки одну с переходом, другую без Я думаю такой скрипт многим бы пригодился. Спасибо.

Flasher

shveicar писал(а):смысл скрипта(если уже его создали) чтобы он был более функционален чем кнопка

Это по какой такой логике? У скрипта есть и другие полезности, в частности отсутсвие окна консоли.

shveicar писал(а):если при перемещении на уровень вверх(файлов или папок) происходит совпадение имен то к имени файла или папки добавляется (_)

Я не спорю, что это кому-то может понадобиться. Лично для себя я случаи совпадения заведомо исключаю. Мне не нужны файлы-дубликаты. Тут проблема пока только с рекурсией. Если устроит просто переименование папок, а не файлов внутри этих папок, то это уже не проблема. Устроит?

shveicar писал(а):конечно должен быть переход в тот же каталог куда переносятся файлы, поскольку данный скрипт позволит существенно сократить время
при работе с большим количеством файлов

Всё от ситуации зависит. Может понадобиться остаться в папке, чтобы разобраться с оставшимися файлами. Ну коль надо, сделаю.

shveicar

Если устроит просто переименование папки, а не файлов внутри этой папки, то это уже не проблема

Конечно устроит! -(дубликаты папки, всегда можно потом найти, и например удалить), ну а с файлами, пусть будет как есть.

Flasher

Готово.

shveicar

Отлично! Работает как часы.

И даже файлы при совпадении переименовывает! Еще бы такой-же вариант без перехода(для второй кнопки) Спасибо.

Flasher

shveicar писал(а):И даже файлы при совпадении переименовывает!

Я имел в виду, что не будет создавать одноимённые файлы с постфиксом внутри папок, если не менять их названия.

shveicar писал(а):Еще бы такой-же вариант без перехода(для второй кнопки)

Удаляем предпоследнюю строку и будет.

Добавил параметр.

BezDNaU

Есть кнопка для создания ISZ образа UltraISO с параметрами:
-imax -l -d "%P" -compress 6 -volu %O -out "%T%O.isz"
Как сделать, чтобы создавался образ с именем каталога из которого создается образ?

[mod="Avada"]Замечание за нарушение правил темы "Обмен кнопками"! Для запросов и обсуждений — отдельная тема, куда и переношу пост.[/mod]

shveicar

Здравствуйте. Есть такая кнопка

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

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\archv\Rar_unRAR.bat
%N B
%commander_path%\WCMICONS.DLL,30
создает папку x-arc и помещает в нее архивы имя и дата

1
-1

а к ней батник

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

Set PathRAR="%COMMANDER_PATH%\Programs\WinRAR\WinRAR.exe"
If %2#==B# (
   If Not Exist "%cd%\bekap-RAR\" MD "%cd%\bekap-RAR\"
   %PathRAR% a -dh -m3 -ag"_[yyyy.mm.dd hh.mm.ss]" "%cd%\bekap-RAR\%~n1.rar" "%~1"
) Else (
   If Not Exist "%cd%\%~n1\" MD "%cd%\%~n1\"
   %PathRAR% x "%~1" "%cd%\%~n1\"
   For %%I In ("%cd%\%~n1\*") Do Ren "%%I" "%~n1%%~xI"
)

Что нужно в нем подправить. - чтобы файл(папка) после архивации удалялась?