Страница 27 из 88
Добавлено: Вс июн 26, 2011 21:16
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
Код: Выделить всё
' Копировать папку под курсором
' Параметры: %P%N %P%N_
'==============================
CreateObject("Scripting.FileSystemObject").GetFolder(WScript.Arguments(0)).Copy WScript.Arguments(1)
Добавлено: Пн июн 27, 2011 14:05
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 не обновляется, а по логике, должен быть переход в ту-же директорию, что и перенос, и если имя файла достаточно длинное, то кнопка не срабатывает. Есть ли способ это исправить?
Добавлено: Пн июн 27, 2011 14:28
Flasher
shveicar писал(а):видимо что то у них на сервере
Проверил обе ссылки - реботают. Хотя,думаю, второго скрипта будет достаточно. Я просто верхний пример привёл для профилактики, чтобы использовался TC-шний инструмент.
shveicar писал(а):Есть ли способ это исправить?
Из
этого скрипта удалить
Код: Выделить всё
' с удалением указанного родительского каталога
Код: Выделить всё
Set Folder = FSO.GetFolder(TargetPath&""&WScript.Arguments(1))
If Folder.Size < 1 Then
Folder.Delete
End If
Оставить только первый параметр.
Добавлено: Пн июн 27, 2011 14:35
shveicar
Хотя,думаю, второго скрипта будет достаточно
Ну да, это то что надо. А со скриптом сейчас попробую. Спасибо
Добавлено: Пн июн 27, 2011 16:04
Flasher
shveicar
В общем,
понятно, да? Это по-простому - без всяких окон.
Добавлено: Пн июн 27, 2011 17:22
shveicar
Попробовал -Скрипт работает - только если в верхнем каталоге не существует такого же файла или папки, (а если существует то нечего не происходит) - в случае с кнопкой, которую я приводил, файлы перемещаются с заменой(если их имена совпадают), по хорошему надо чтобы скрипт (в случае совпадения имен) выдавал окно - варианты выбора при совпадении, или допустим добавлял (_ или номер) к имени перемещенного файла. Да, и в случае перемещения файлов окно остается в пустой директории (как и в случае с кнопкой), приходится вручную жать переход на уровень вверх (хотя, если это проблема, то можно не брать её во внимание)
Добавлено: Пн июн 27, 2011 17:29
Flasher
shveicar писал(а):Скрипт работает - только если в верхнем каталоге не существует такого же файла или папки
Ну да, я специально это условие поставил. А что, надо переписывать файлы и папки? Файлы, которых нет, будут перемещаться.
shveicar писал(а):по хорошему надо чтобы скрипт (в случае совпадения имен) выдавал окно - варианты выбора при совпадении, или допустим добавлял (_ или номер) к имени перемещенного файла.
Хм. Второе могу, только там придётся использовать методы копирования и удаления, а не сразу перемещения. И там рекурсию придётся пофайлого делать. С первым что-то не хочется возиться.
shveicar писал(а):Да, и в случае перемещения файлов окно остается в пустой директории (как и в случае с кнопкой), приходится вручную жать переход на уровень вверх (хотя, если это проблема, то можно не брать её во внимание)
С переходом-то несложно. Но: а если, допустим, выделены не все файлы и папки для перемещения, тогда как?
Добавлено: Пн июн 27, 2011 18:17
shveicar
Ну да, смысл скрипта(если уже его создали) чтобы он был более функционален чем кнопка. На мой взгляд если при перемещении на уровень вверх(файлов или папок) происходит совпадение имен то к имени файла или папки добавляется (_) ну и
если, допустим, выделены не все файлы и папки для перемещения, тогда как?
конечно должен быть переход в тот же каталог куда переносятся файлы, поскольку данный скрипт позволит существенно сократить время
при работе с большим количеством файлов. Да и в принципе (можно рассмотреть вариант без перехода) удобно ведь сделать на панели две кнопки одну с переходом, другую без Я думаю такой скрипт многим бы пригодился. Спасибо.
Добавлено: Пн июн 27, 2011 18:24
Flasher
shveicar писал(а):смысл скрипта(если уже его создали) чтобы он был более функционален чем кнопка
Это по какой такой логике? У скрипта есть и другие полезности, в частности отсутсвие окна консоли.
shveicar писал(а):если при перемещении на уровень вверх(файлов или папок) происходит совпадение имен то к имени файла или папки добавляется (_)
Я не спорю, что это кому-то может понадобиться. Лично для себя я случаи совпадения заведомо исключаю. Мне не нужны файлы-дубликаты. Тут проблема пока только с рекурсией. Если устроит просто переименование папок, а не файлов внутри этих папок, то это уже не проблема. Устроит?
shveicar писал(а):конечно должен быть переход в тот же каталог куда переносятся файлы, поскольку данный скрипт позволит существенно сократить время
при работе с большим количеством файлов
Всё от ситуации зависит. Может понадобиться остаться в папке, чтобы разобраться с оставшимися файлами. Ну коль надо, сделаю.
Добавлено: Пн июн 27, 2011 18:38
shveicar
Если устроит просто переименование папки, а не файлов внутри этой папки, то это уже не проблема
Конечно устроит! -(дубликаты папки, всегда можно потом найти, и например удалить), ну а с файлами, пусть будет как есть.
Добавлено: Пн июн 27, 2011 18:44
Flasher
Готово.
Добавлено: Пн июн 27, 2011 19:41
shveicar
Отлично! Работает как часы.

И даже файлы при совпадении переименовывает! Еще бы такой-же вариант без перехода(для второй кнопки) Спасибо.
Добавлено: Пн июн 27, 2011 19:43
Flasher
shveicar писал(а):И даже файлы при совпадении переименовывает!
Я имел в виду, что не будет создавать одноимённые файлы с постфиксом внутри папок, если не менять их названия.
shveicar писал(а):Еще бы такой-же вариант без перехода(для второй кнопки)
Удаляем предпоследнюю строку и будет.

Добавил параметр.
Добавлено: Пн июн 27, 2011 19:52
BezDNaU
Есть кнопка для создания ISZ образа UltraISO с параметрами:
-imax -l -d "%P" -compress 6 -volu %O -out "%T%O.isz"
Как сделать, чтобы создавался образ с именем каталога из которого создается образ?
[mod="Avada"]
Замечание за нарушение правил темы "Обмен кнопками"! Для запросов и обсуждений —
отдельная тема, куда и переношу пост.[/mod]
Добавлено: Ср июн 29, 2011 17:23
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"
)
Что нужно в нем подправить. - чтобы файл(папка) после архивации удалялась?