Страница 37 из 88
Добавлено: Вт июл 31, 2012 19:44
happywanderer
Flasher Спасибо большое, второй вариант удовлетворил полностью. А про администрирование,громко сказано - так на машинах без интернета обновить базы на антивирус.
Добавлено: Сб окт 13, 2012 01:51
Iori
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]
Добавлено: Сб окт 13, 2012 14:14
Avada
Iori
Предыдущее пояснение было недостаточно ясным? Оффтопный пост вновь перенесён по принадлежности — и на сей раз с
замечанием за нарушение
правил форума.
Добавлено: Сб окт 13, 2012 22:38
Tol!k
Добавлено: Вс окт 14, 2012 00:28
Avada
Iori
Строгое предупреждение за продолжающиеся нарушения
правил форума. Дубль
этого поста в виде отдельной темы удалён, ответ перенесён сюда. Больше предупреждений не будет, следующий шаг при рецидиве — блокировка аккаунта.
Добавлено: Вс окт 14, 2012 06:49
Iori
Спасибо, попробовал ваш батник. Кнопка королевская
, ибо всем кнопкам кнопка.
Я так понимаю что без батника такое дело не будет возможным, или я не прав?
Изменил только две строчки в вашем коде.
set "e=%n%"
set "new=%prist%%ext%_bak%e%"
EDIT: Ещё чуть потестировал батник и обнаружил что он не полностью сохроняет название папок.
Если папка называется PotPlayer_1.5.33.948 то батник сделает копию с таким именем PotPlayer_1.5.33_bak1. То-есть батник обрезает всё после последней точки.
Добавлено: Вс окт 14, 2012 13:01
Flasher
Iori писал(а):Кнопка королевская Smile, ибо всем кнопкам кнопка.
А последующие примеры в теме чем хуже?
Добавлено: Вс окт 14, 2012 18:01
Iori
Flasher писал(а):Iori писал(а):Кнопка королевская Smile, ибо всем кнопкам кнопка.
А последующие примеры в теме чем хуже?
О каком именно примере вы говорите?
Добавлено: Вс окт 14, 2012 18:40
Flasher
Iori
Я говорю не о примере, а о примерах, что идут на следующих страницах темы после указанного батника.
Добавлено: Вс окт 14, 2012 18:53
Tol!k
Flasher
там одновременное создание нескольких копий,
а нужно не одновременное
Добавлено: Вс окт 14, 2012 18:58
Iori
Flasher писал(а):Iori
Я говорю не о примере, а о примерах, что идут на следующих страницах темы после указанного батника.
Как я понял следущие примеры кнопок создают пять или больше копий одного фаила одновременно. Мне надо что-бы копия фаила или папки создавалась при нажатие на кнопку. То-есть file_bak1, file_bak2 и так далее при каждом нажатие на кнопку новая копия создаётся.
Добавлено: Вс окт 14, 2012 19:37
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" 'обновить файловую панель
Добавлено: Вс окт 14, 2012 20:00
Iori
Flasher писал(а):
Мой скрипт вообще в одну строчку для данного случая пишется:
Код: Выделить всё
' Cоздать копию выделенного элемента с переименованием
' Параметры: %V "<путь назначения>"
' Пример: %V "%P"
'=====================================================
CreateObject("Shell.Application").NameSpace(WScript.Arguments(1)).CopyHere WScript.Arguments(0), 8
Интересно.
Даже папки правильно копирует, то-есть не обрезает как в батнике (я писал про это чуть выше).
Но зато, ваш скрипт не создает копии сразу несколько выбранных фаилов. В VB я не разбираюсь по этому подправить ваш скрипт под себя не смогу.
И ещё такая вешь, если ваш скрипт использовать из под wинпе где не инсталлированы VB библиотеки, то тогда получается скрипт работать не будет.
Добавлено: Вс окт 14, 2012 20:11
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 библиотеки
Там много чего не работает...
Добавлено: Вс окт 14, 2012 20:24
Iori
Тогда так
Так вроде работает как надо !
А какой параметер в вашем скрипте надо изменить что-бы манипулировать
- Copy. Что мне поменять что-бы фаил создавался как
file.zip_bak1
file.zip_bak2
...
а папка как
папка_bak1
папка_bak2
...
Там много чего не работает...
Я конечно не проверял но думаю Толикин батник работать будет.