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

happywanderer

Flasher Спасибо большое, второй вариант удовлетворил полностью. А про администрирование,громко сказано - так на машинах без интернета обновить базы на антивирус.

Iori · Сообщение **Iori** » Сб окт 13, 2012 01:51

LocKtaR-o-DarK

Я чуть переделал вашу кнопку под себя.

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

TOTALCMD#BAR#DATA
cmd /c
for %%a in (%S) do if %%~aa gtr d (title Copy... %%a&xcopy/eichrky %%a %%a_Backup\) else title Copy... %%a&echo.f|xcopy/ychrkz %%a "%%~na%%~xa.bak"
shell32.dll,66
Make a BackUp of Folders / Files Under Cursor

1
-1

Нельзя ли вашу кнопку подправить так что бы она создавала несколько бакап фаилов или папок.

Скажем есть папка ААА, после кнопки она будет ААА_Backup.
Если еще раз нажать на кнопку хотелось что бы было ААА_Backup1 и так далее.

Спасибо.[/b]

Avada · Сообщение **Avada** » Сб окт 13, 2012 14:14

Iori
Предыдущее пояснение было недостаточно ясным? Оффтопный пост вновь перенесён по принадлежности — и на сей раз с замечанием за нарушение правил форума.

Tol!k · Сообщение **Tol!k** » Сб окт 13, 2012 22:38

"Копирование с переименовыванием по счетчику" http://forum.wincmd.ru/viewtopic.php?p=62933#62933

Avada · Сообщение **Avada** » Вс окт 14, 2012 00:28

Iori
Строгое предупреждение за продолжающиеся нарушения правил форума. Дубль этого поста в виде отдельной темы удалён, ответ перенесён сюда. Больше предупреждений не будет, следующий шаг при рецидиве — блокировка аккаунта.

Iori · Сообщение **Iori** » Вс окт 14, 2012 06:49

Tol!k писал(а):"Копирование с переименовыванием по счетчику" http://forum.wincmd.ru/viewtopic.php?p=62933#62933

Спасибо, попробовал ваш батник. Кнопка королевская

, ибо всем кнопкам кнопка.

Я так понимаю что без батника такое дело не будет возможным, или я не прав?

Изменил только две строчки в вашем коде.

set "e=%n%"
set "new=%prist%%ext%_bak%e%"

EDIT: Ещё чуть потестировал батник и обнаружил что он не полностью сохроняет название папок.

Если папка называется PotPlayer_1.5.33.948 то батник сделает копию с таким именем PotPlayer_1.5.33_bak1. То-есть батник обрезает всё после последней точки.

Flasher

Iori писал(а):Кнопка королевская Smile, ибо всем кнопкам кнопка.

А последующие примеры в теме чем хуже?

Iori · Сообщение **Iori** » Вс окт 14, 2012 18:01

Flasher писал(а):
Iori писал(а):Кнопка королевская Smile, ибо всем кнопкам кнопка.
А последующие примеры в теме чем хуже?

О каком именно примере вы говорите?

Flasher

Iori
Я говорю не о примере, а о примерах, что идут на следующих страницах темы после указанного батника.

Tol!k · Сообщение **Tol!k** » Вс окт 14, 2012 18:53

Flasher
там одновременное создание нескольких копий,
а нужно не одновременное

Iori · Сообщение **Iori** » Вс окт 14, 2012 18:58

Flasher писал(а):Iori
Я говорю не о примере, а о примерах, что идут на следующих страницах темы после указанного батника.

Как я понял следущие примеры кнопок создают пять или больше копий одного фаила одновременно. Мне надо что-бы копия фаила или папки создавалась при нажатие на кнопку. То-есть file_bak1, file_bak2 и так далее при каждом нажатие на кнопку новая копия создаётся.

Flasher

Tol!k писал(а):а нужно не одновременное

1 ставишь и будет поразовое, если, к примеру, взять первые пару скриптов с этой страницы.

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

Почему это "пять или больше"? Хоть 1, хоть 2, хоть миллион.

Мой скрипт вообще в одну строчку для данного случая пишется:

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

' Cоздать копию выделенного элемента с переименованием
' Параметры: %V "<путь назначения>"
' Пример: %V "%P"
'=====================================================
CreateObject("Shell.Application").NameSpace(WScript.Arguments(1)).CopyHere WScript.Arguments(0), 8
'CreateObject("Wscript.Shell").SendKeys "^R" 'обновить файловую панель

Iori · Сообщение **Iori** » Вс окт 14, 2012 20:00

Flasher писал(а): Мой скрипт вообще в одну строчку для данного случая пишется:
Код: Выделить всё
' Cоздать копию выделенного элемента с переименованием
' Параметры: %V "<путь назначения>"
' Пример: %V "%P"
'=====================================================
CreateObject("Shell.Application").NameSpace(WScript.Arguments(1)).CopyHere WScript.Arguments(0), 8

Интересно.

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

Flasher

Iori писал(а):не создает копии сразу несколько выбранных фаилов

Тогда так (+ работа с юникодными именами):

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

' Cоздать копию для каждого выделенного элемента
' Параметры: %WL "<путь назначения>"
' Пример: %WL "%P"
'===============================================
If WScript.Arguments.Count = 0 Then WScript.Quit
For Each F in Split(CreateObject("Scripting.FileSystemObject").GetFile(WScript.Arguments(0)).OpenAsTextStream(1, -1).ReadAll, vbNewLine)
  If F > vbNullString Then CreateObject("Shell.Application").NameSpace(WScript.Arguments(1)).CopyHere F, 8
Next

Iori писал(а):из под wинпе где не инсталлированы VB библиотеки

Там много чего не работает...

Iori · Сообщение **Iori** » Вс окт 14, 2012 20:24

Тогда так

Так вроде работает как надо !
А какой параметер в вашем скрипте надо изменить что-бы манипулировать - Copy. Что мне поменять что-бы фаил создавался как
file.zip_bak1
file.zip_bak2
...
а папка как

папка_bak1
папка_bak2
...

Там много чего не работает...

Я конечно не проверял но думаю Толикин батник работать будет.