View previous topic :: View next topic |
Author |
Message |
happywanderer
Joined: 06 Oct 2009 Posts: 57
|
(Separately) Posted: Tue Jul 31, 2012 19:44 Post subject: |
|
|
Flasher Спасибо большое, второй вариант удовлетворил полностью. А про администрирование,громко сказано - так на машинах без интернета обновить базы на антивирус. |
|
Back to top |
|
 |
Iori
Joined: 25 Apr 2012 Posts: 551
|
(Separately) Posted: Sat Oct 13, 2012 01:51 Post subject: |
|
|
LocKtaR-o-DarK
Я чуть переделал вашу кнопку под себя.
Code: |
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] |
|
Back to top |
|
 |
Avada

Joined: 01 Aug 2008 Posts: 10419 Location: Россия, Саратов
|
(Separately) Posted: Sat Oct 13, 2012 14:14 Post subject: |
|
|
Iori
Предыдущее пояснение было недостаточно ясным? Оффтопный пост вновь перенесён по принадлежности — и на сей раз с замечанием за нарушение правил форума. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
 |
Tol!k

Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
|
Back to top |
|
 |
Avada

Joined: 01 Aug 2008 Posts: 10419 Location: Россия, Саратов
|
(Separately) Posted: Sun Oct 14, 2012 00:28 Post subject: |
|
|
Iori
Строгое предупреждение за продолжающиеся нарушения правил форума. Дубль этого поста в виде отдельной темы удалён, ответ перенесён сюда. Больше предупреждений не будет, следующий шаг при рецидиве — блокировка аккаунта. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
 |
Iori
Joined: 25 Apr 2012 Posts: 551
|
(Separately) Posted: Sun Oct 14, 2012 06:49 Post subject: |
|
|
Спасибо, попробовал ваш батник. Кнопка королевская , ибо всем кнопкам кнопка.
Я так понимаю что без батника такое дело не будет возможным, или я не прав?
Изменил только две строчки в вашем коде.
set "e=%n%"
set "new=%prist%%ext%_bak%e%"
EDIT: Ещё чуть потестировал батник и обнаружил что он не полностью сохроняет название папок.
Если папка называется PotPlayer_1.5.33.948 то батник сделает копию с таким именем PotPlayer_1.5.33_bak1. То-есть батник обрезает всё после последней точки.
Last edited by Iori on Sun Oct 14, 2012 19:00; edited 2 times in total |
|
Back to top |
|
 |
Flasher

Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Oct 14, 2012 13:01 Post subject: |
|
|
Iori wrote: | Кнопка королевская Smile, ибо всем кнопкам кнопка. | А последующие примеры в теме чем хуже? |
|
Back to top |
|
 |
Iori
Joined: 25 Apr 2012 Posts: 551
|
(Separately) Posted: Sun Oct 14, 2012 18:01 Post subject: |
|
|
Flasher wrote: | Iori wrote: | Кнопка королевская Smile, ибо всем кнопкам кнопка. | А последующие примеры в теме чем хуже? |
О каком именно примере вы говорите? |
|
Back to top |
|
 |
Flasher

Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Oct 14, 2012 18:40 Post subject: |
|
|
Iori
Я говорю не о примере, а о примерах, что идут на следующих страницах темы после указанного батника. |
|
Back to top |
|
 |
Tol!k

Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Sun Oct 14, 2012 18:53 Post subject: |
|
|
Flasher
там одновременное создание нескольких копий,
а нужно не одновременное |
|
Back to top |
|
 |
Iori
Joined: 25 Apr 2012 Posts: 551
|
(Separately) Posted: Sun Oct 14, 2012 18:58 Post subject: |
|
|
Flasher wrote: | Iori
Я говорю не о примере, а о примерах, что идут на следующих страницах темы после указанного батника. |
Как я понял следущие примеры кнопок создают пять или больше копий одного фаила одновременно. Мне надо что-бы копия фаила или папки создавалась при нажатие на кнопку. То-есть file_bak1, file_bak2 и так далее при каждом нажатие на кнопку новая копия создаётся. |
|
Back to top |
|
 |
Flasher

Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Oct 14, 2012 19:37 Post subject: |
|
|
Tol!k wrote: | а нужно не одновременное | 1 ставишь и будет поразовое, если, к примеру, взять первые пару скриптов с этой страницы.
Iori wrote: | следущие примеры кнопок создают пять или больше копий одного фаила одновременно | Почему это "пять или больше"? Хоть 1, хоть 2, хоть миллион.
Мой скрипт вообще в одну строчку для данного случая пишется:
Code: | ' Cоздать копию выделенного элемента с переименованием
' Параметры: %V "<путь назначения>"
' Пример: %V "%P"
'=====================================================
CreateObject("Shell.Application").NameSpace(WScript.Arguments(1)).CopyHere WScript.Arguments(0), 8
'CreateObject("Wscript.Shell").SendKeys "^R" 'обновить файловую панель |
|
|
Back to top |
|
 |
Iori
Joined: 25 Apr 2012 Posts: 551
|
(Separately) Posted: Sun Oct 14, 2012 20:00 Post subject: |
|
|
Flasher wrote: |
Мой скрипт вообще в одну строчку для данного случая пишется:
Code: | ' Cоздать копию выделенного элемента с переименованием
' Параметры: %V "<путь назначения>"
' Пример: %V "%P"
'=====================================================
CreateObject("Shell.Application").NameSpace(WScript.Arguments(1)).CopyHere WScript.Arguments(0), 8 |
|
Интересно. Даже папки правильно копирует, то-есть не обрезает как в батнике (я писал про это чуть выше).
Но зато, ваш скрипт не создает копии сразу несколько выбранных фаилов. В VB я не разбираюсь по этому подправить ваш скрипт под себя не смогу.
И ещё такая вешь, если ваш скрипт использовать из под wинпе где не инсталлированы VB библиотеки, то тогда получается скрипт работать не будет. |
|
Back to top |
|
 |
Flasher

Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sun Oct 14, 2012 20:11 Post subject: |
|
|
Iori wrote: | не создает копии сразу несколько выбранных фаилов | Тогда так (+ работа с юникодными именами):
Code: | ' 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 wrote: | из под wинпе где не инсталлированы VB библиотеки | Там много чего не работает... |
|
Back to top |
|
 |
Iori
Joined: 25 Apr 2012 Posts: 551
|
(Separately) Posted: Sun Oct 14, 2012 20:24 Post subject: |
|
|
Так вроде работает как надо !
А какой параметер в вашем скрипте надо изменить что-бы манипулировать - Copy. Что мне поменять что-бы фаил создавался как
file.zip_bak1
file.zip_bak2
...
а папка как
папка_bak1
папка_bak2
...
Quote: | Там много чего не работает... |
Я конечно не проверял но думаю Толикин батник работать будет. |
|
Back to top |
|
 |
|