| View previous topic :: View next topic |
| Author |
Message |
DeYura
Joined: 06 Sep 2007
Posts: 3
|
 (Separately) Posted: Thu Sep 06, 2007 15:25 Post subject: [Plugin Request] File Duplicator |
 |
|
Очень нужен плагин для создания дубликата файла (копии на всякий случай) по нажатию комбинации кнопок Ctrl+D.
А то уже надоело делать Copy, потом Paste - это довольно долго + изменяеться содержимое буфера обмена.
Зачем нужен: например вы редактируете конфиг или код программы, скопировали в буфер что-то, но потом подумали, что неплохо бы сохранить резервную копию файла. Делаете Copy, потом Paste, потом лезете обратно в файл и копируете данные, которые были в буфере перед этим - всё это муторно и долго.
Приблизительно хотелось чтобы плагин делал так:
исходный файл "file.txt"
продублированный "file_20070925233640.txt"
где "20070925233640" - дата и время подряд
Думаю создание такого плагина много времени не займёт, буду очень благодарен. |
|
| Back to top |
|
 |
D1P
Joined: 20 Dec 2004
Posts: 2973
Location: Тбилиси
|
| (Separately) Posted: Thu Sep 06, 2007 15:51 Post subject: |
|
|
Зачем плагин? Вполне подойдёт скрипт на VBS+Script Helper. В RU.TCKB есть скрипт "Копирование в каталог с именем файла", тебе, скорее всего, подойдёт даже он. Если нет - в TCKB много примеров скриптов, они очень простые, и переделать один из них в точности под твои нужды труда не составит. Готового решения не даю.
Ссылка на TCKB: http://www.tckb.megabyte-web.ru/wiki/Оффлайн-версия_RU.TCKB
_________________
База знаний о Total Commander
Блог |
|
| Back to top |
|
|
funduk
Joined: 16 Aug 2005
Posts: 1513
Location: Санкт-Петербург
|
| (Separately) Posted: Thu Sep 06, 2007 17:37 Post subject: |
|
|
2DeYura
Тебе намного облегчит жизнь программа-менеджер буфера обмена. Я пользуюсь CLCL, но она конфликтует с последними версиями FlashGet. |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2221
Location: Москва, Россия
|
| (Separately) Posted: Thu Sep 06, 2007 18:35 Post subject: |
|
|
DeYura
А зачем через буфер? F5 или Shift+F5 не катят?
Если уж нужен скрипт, то вот VBS (Script Helper не используется):
| Code: | '=======================================================
' Копирование выделенных файлов\папок в текущий каталог
' с добавлением текущих даты и времени в имя:
' {Имя}_YYYYMMDDhhmmss.{Расширение}
' Параметры вызова из TC:
' %L
'=======================================================
Option Explicit
If WScript.Arguments.Count = 0 Then
MsgBox "Не заданы параметры!", vbOKOnly + vbCritical, "Копирование"
WScript.Quit
End If
Dim FSO, OTF, List, F
Set FSO = CreateObject("Scripting.FileSystemObject")
Set OTF = FSO.OpenTextFile(WScript.Arguments(0), 1, False)
List = OTF.ReadAll
OTF.Close
Set OTF = Nothing
For Each F In Split(List, vbNewLine)
If FSO.FileExists(F) Then
FSO.CopyFile F, FSO.GetFile(F).ParentFolder.Path & "\" &_
FSO.GetBaseName(F) & "_" & DateTime & "." &_
FSO.GetExtensionName(F)
End If
If FSO.FolderExists(F) Then
FSO.CopyFolder Left(F, Len(F) - 1), Left(F, Len(F) - 1) & "_" & DateTime
End If
Next
Set FSO = Nothing
WScript.Quit
Function DateTime
Dim d, t
d = Date
t = Time
DateTime = Year(d) & Right(0 & Month(d), 2) & Right(0 & Day(d), 2) &_
Replace(t, ":", "")
End Function |
|
|
| Back to top |
|
|
CaptainFlint
Joined: 14 Dec 2004
Posts: 6159
Location: Москва
|
| (Separately) Posted: Thu Sep 06, 2007 18:49 Post subject: |
|
|
Переношу в Автоматизацию.
_________________
Почему же, ё-моё, ты нигде не пишешь "ё"? |
|
| Back to top |
|
|
DeYura
Joined: 06 Sep 2007
Posts: 3
|
| (Separately) Posted: Fri Sep 07, 2007 10:35 Post subject: |
|
|
| Спасибо Batya |
|
| Back to top |
|
|
DeYura
Joined: 06 Sep 2007
Posts: 3
|
| (Separately) Posted: Fri Sep 07, 2007 10:56 Post subject: |
|
|
Получилось запихнуть в панель ввиде кнопки.
Всё работает и даже с папками.
Подскажите, а как назначить ему горячую клавищу? |
|
| Back to top |
|
|
D1P
Joined: 20 Dec 2004
Posts: 2973
Location: Тбилиси
|
| (Separately) Posted: Fri Sep 07, 2007 11:33 Post subject: |
|
|
| Quote: | | Подскажите, а как назначить ему горячую клавищу? |
Создать пользовательскую команду (есть в TC 7.0+), назначить на неё.
_________________
База знаний о Total Commander
Блог |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
