Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Обсуждение темы "Обмен кнопками"
Goto page Previous  1, 2, 3 ... 36, 37, 38 ... 85, 86, 87  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
happywanderer



Joined: 06 Oct 2009
Posts: 57

Post (Separately) Posted: Tue Jul 31, 2012 19:44    Post subject: Reply with quote

Flasher Спасибо большое, второй вариант удовлетворил полностью. А про администрирование,громко сказано - так на машинах без интернета обновить базы на антивирус.
Back to top
View user's profile Send private message
Iori



Joined: 25 Apr 2012
Posts: 551

Post (Separately) Posted: Sat Oct 13, 2012 01:51    Post subject: Reply with quote

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
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10419
Location: Россия, Саратов

Post (Separately) Posted: Sat Oct 13, 2012 14:14    Post subject: Reply with quote

Iori
Предыдущее пояснение было недостаточно ясным? Оффтопный пост вновь перенесён по принадлежности — и на сей раз с замечанием за нарушение правил форума.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Sat Oct 13, 2012 22:38    Post subject: Reply with quote

"Копирование с переименовыванием по счетчику" http://forum.wincmd.ru/viewtopic.php?p=62933#62933
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10419
Location: Россия, Саратов

Post (Separately) Posted: Sun Oct 14, 2012 00:28    Post subject: Reply with quote

Iori
Строгое предупреждение за продолжающиеся нарушения правил форума. Дубль этого поста в виде отдельной темы удалён, ответ перенесён сюда. Больше предупреждений не будет, следующий шаг при рецидиве — блокировка аккаунта.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Iori



Joined: 25 Apr 2012
Posts: 551

Post (Separately) Posted: Sun Oct 14, 2012 06:49    Post subject: Reply with quote

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


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

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

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

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
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sun Oct 14, 2012 13:01    Post subject: Reply with quote

Iori wrote:
Кнопка королевская Smile, ибо всем кнопкам кнопка.
А последующие примеры в теме чем хуже?
Back to top
View user's profile Send private message
Iori



Joined: 25 Apr 2012
Posts: 551

Post (Separately) Posted: Sun Oct 14, 2012 18:01    Post subject: Reply with quote

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


О каком именно примере вы говорите?
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sun Oct 14, 2012 18:40    Post subject: Reply with quote

Iori
Я говорю не о примере, а о примерах, что идут на следующих страницах темы после указанного батника.
Back to top
View user's profile Send private message
Tol!k



Joined: 01 Apr 2008
Posts: 1727
Location: Арзамас

Post (Separately) Posted: Sun Oct 14, 2012 18:53    Post subject: Reply with quote

Flasher
там одновременное создание нескольких копий,
а нужно не одновременное
Back to top
View user's profile Send private message
Iori



Joined: 25 Apr 2012
Posts: 551

Post (Separately) Posted: Sun Oct 14, 2012 18:58    Post subject: Reply with quote

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


Как я понял следущие примеры кнопок создают пять или больше копий одного фаила одновременно. Мне надо что-бы копия фаила или папки создавалась при нажатие на кнопку. То-есть file_bak1, file_bak2 и так далее при каждом нажатие на кнопку новая копия создаётся.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sun Oct 14, 2012 19:37    Post subject: Reply with quote

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
View user's profile Send private message
Iori



Joined: 25 Apr 2012
Posts: 551

Post (Separately) Posted: Sun Oct 14, 2012 20:00    Post subject: Reply with quote

Flasher wrote:

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

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


Интересно. Smile Даже папки правильно копирует, то-есть не обрезает как в батнике (я писал про это чуть выше).
Но зато, ваш скрипт не создает копии сразу несколько выбранных фаилов. В VB я не разбираюсь по этому подправить ваш скрипт под себя не смогу.
И ещё такая вешь, если ваш скрипт использовать из под wинпе где не инсталлированы VB библиотеки, то тогда получается скрипт работать не будет.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Sun Oct 14, 2012 20:11    Post subject: Reply with quote

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
View user's profile Send private message
Iori



Joined: 25 Apr 2012
Posts: 551

Post (Separately) Posted: Sun Oct 14, 2012 20:24    Post subject: Reply with quote

Quote:
Тогда так


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

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

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

Я конечно не проверял но думаю Толикин батник работать будет.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2, 3 ... 36, 37, 38 ... 85, 86, 87  Next
Page 37 of 87

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group