| View previous topic :: View next topic |
| Author |
Message |
Vladimir77
Joined: 27 Feb 2006
Posts: 15
|
 (Separately) Posted: Mon Feb 27, 2006 15:47 Post subject: Есть ли плагин подобный программе Binder (подшивка) |
 |
|
Нужен плагин подобный по функциям программе Binder - была раньше в Офисе такая штучка (в русском переводе - подшивка). Искал я по сайту - нет таких слов ни в русском ни в английском варианте.
А функция нужна простая - объединить несколько файлов и папок в одну подшивку, не перемещая сами файлы, так чтобы потом можно было всё разом копировать.
Подскажите, какой из имеющихся плагинов можно было бы попробовать для этого.  |
|
| Back to top |
|
 |
Batya
Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия
|
|
| Back to top |
|
|
Vladimir77
Joined: 27 Feb 2006
Posts: 15
|
| (Separately) Posted: Mon Feb 27, 2006 17:04 Post subject: |
|
|
Идея хорошая, но почему только NTFS?
Я например систему ставлю на раздел NTFS, а данные предпочитаю держать на FAT32 - это много раз выручало, пока WIN-XP не стала основной системой. Я и сейчас ещё могу пользоваться кое-какими функциями, которые остались у меня только в 98 системе. |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия
|
| (Separately) Posted: Mon Feb 27, 2006 17:22 Post subject: |
|
|
В FAT можно наделать ярлыков, а потом от ярлыков копировать исходные файлы.
Также можно делать файл-список, а потом копировать по списку. |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия
|
| (Separately) Posted: Mon Feb 27, 2006 17:29 Post subject: |
|
|
| Пожалуй, последний вариант очень просто реализовать двумя скриптами (повесить их на кнопки) - первый добавляет в файл-список, второй - копирует файлы из файла-списка в противоположную панель TC. |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия
|
| (Separately) Posted: Mon Feb 27, 2006 18:02 Post subject: |
|
|
Итак 2 файла *.vbs (имена любые).
CopyInList.vbs:
| Code: | CreateObject("Scripting.FileSystemObject").OpenTextFile(Wscript.Arguments(0), 8, True).WriteLine Wscript.Arguments(1) |
CopyFromList.vbs:
| Code: | Dim ListFile, FSO, TargetDir
Set ListFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(Wscript.Arguments(0), 1)
Set FSO = CreateObject("Scripting.FileSystemObject")
TargetDir = InputBox("Копировать в каталог:","Копирование",Wscript.Arguments(1))
If Len(TargetDir) > 0 Then
Dim SelFile
Do While Not ListFile.AtEndOfStream
SelFile = ListFile.ReadLine
If FSO.FileExists(SelFile) Then
FSO.CopyFile SelFile, TargetDir
End IF
Loop
End If
Set ListFile = Nothing
Set FSO = Nothing |
Сделать 2 кнопки:
| Code: | TOTALCMD#BAR#DATA
d:\CopyInList.vbs
d:\MyList.lst %P%N
shell32.dll,65
2
-1 |
| Code: | TOTALCMD#BAR#DATA
d:\CopyFromList.vbs
%P%N %T
shell32.dll,66
3
-1
|
Здесь d:\MyList.lst - заполняемый файл-список - может быть любое имя и расширение. Если его нет, то создается. Соответственно пути к скриптам и к файлу-списку свои, иконки тоже.
Как работает... В ТС становишься на нужный файл и нажимаешь 1-ую кнопку. Он заносится в файл-список.
Когда все собрал, становишься на файл-список, открываешь в противоположной панели ТС каталог назначения и нажимаешь вторую кнопку. После этого остается только вручную обновить панель назначения в ТС. |
|
| Back to top |
|
|
mramor
Joined: 16 Dec 2004
Posts: 100
Location: г. волжский, снг
|
|
| Back to top |
|
|
Vladimir77
Joined: 27 Feb 2006
Posts: 15
|
| (Separately) Posted: Fri Mar 10, 2006 19:12 Post subject: нельзя найти NTFS Links 1.21 в дереве навигации по сайту |
|
|
Непонятно, почему нельзя найти NTFS Links 1.21 в дереве навигации по сайту.
По моему это недостаток системы навигации по сайту.
и вообще я не нашёл на сайте информации, что таке WFX плагин и как его устанавливать. |
|
| Back to top |
|
|
CaptainFlint
Joined: 14 Dec 2004
Posts: 6151
Location: Москва
|
| (Separately) Posted: Fri Mar 10, 2006 22:16 Post subject: |
|
|
Vladimir77
| Quote: | Непонятно, почему нельзя найти NTFS Links 1.21 в дереве навигации по сайту.
По моему это недостаток системы навигации по сайту. |
Всё можно, надо только знать, где искать.  NTFS Links - это не плагин, а программа, утилита, и искать надо было в разделе утилит. |
|
| Back to top |
|
|
Vladimir77
Joined: 27 Feb 2006
Posts: 15
|
| (Separately) Posted: Sun Mar 12, 2006 12:41 Post subject: Я попробовал все 3 способа |
|
|
Я попробовал все 3 способа
===  В первом способе (создание ярлыков в отдельной папке) есть два недостатка:
1. надо ещё найти удобный способ создания ярлыков, так как у меня пока нет метода для создания ярлыков
для списка выделенных в TotCom фалов и папок. Один из наиболее подходящих способов - добавить в избранное, используя меню проводника.
2. я не умею "от ярлыков копировать исходные файлы", как рекомендует автор совета.
3. хотя сама идея держать ярлыки в отделной папке мне не кажется бесполезной, но требует доработки.
=== Второй способ (создание списка файлов в отдельном файле) я опробовал,
создал приведённые в форуме скрипты и сделал кнопки.
Обе кнопки сразу заработали, однако копируются только файлы.
Ссылки на папки создаются по первой кнопке, но вторая кнопка их не обрабатывает.
===  Третий способ (использование утилиты NtfsLinks) оказался полностью меня устраивающим.
Никакие ограничения из-за специфики NTFS не оказались существенными,
Я создавал символические ссылки как на файлы и папки NTFS
так и на файлы и папки FAT32.
Важно лищь, чтобы папка с символическими ссылкками находилась на NTFS.
Однако проблемы ещё остались.
я не умею записывать файлы на CD-ROM, используя TotalCommander, а именно для этого и хочу создать список ссылок.
PS:
 WFX плагины я пробовать не стал, так как судя по описанию они создают списки только файлов, но не папок. |
|
| Back to top |
|
|
CaptainFlint
Joined: 14 Dec 2004
Posts: 6151
Location: Москва
|
| (Separately) Posted: Sun Mar 12, 2006 13:01 Post subject: |
|
|
Vladimir77
| Quote: | 1. надо ещё найти удобный способ создания ярлыков, так как у меня пока нет метода для создания ярлыков
для списка выделенных в TotCom фалов и папок. Один из наиболее подходящих способов - добавить в избранное, используя меню проводника. |
Ctrl+Shift+F5
| Quote: | | 2. я не умею "от ярлыков копировать исходные файлы", как рекомендует автор совета. |
Точно не знаю, что имел в виду автор совета (подождём его), но, может быть, плагин CopyLinkTarget?
| Quote: | | я не умею записывать файлы на CD-ROM, используя TotalCommander, а именно для этого и хочу создать список ссылок. |
Вообще-то, есть соответствующие плагины... Хотя лично мне это кажется излишним, я для записи кучи разбросанных файлов использую именно третий метод - с NTFS Links, а записываю в Неро. |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия
|
| (Separately) Posted: Mon Mar 13, 2006 12:28 Post subject: Re: Я попробовал все 3 способа |
|
|
| Vladimir77 wrote: | | 2. я не умею "от ярлыков копировать исходные файлы", как рекомендует автор совета. |
Кнопка:
| Code: | TOTALCMD#BAR#DATA
D:\CopyFromLink.vbs
%L %T
shell32.dll,66
Копирование из ярлыков
-1
|
CopyFromLink.vbs:
| Code: | '==========================================================================
' Копирование файлов (в т.ч. файлов из ярлыков) из одной панели TC в другую
'
' В параметрах вызова из TC должно быть прописано:
' %L %T
'====================================================================
Dim TempFile, MyShell, FSO
Set TempFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1)
Set MyShell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim TrgPath, NewName
TrgPath = InputBox("Копировать в каталог:","Копирование",Wscript.Arguments(1))
Do While Not TempFile.AtEndOfStream
MyFile = TempFile.ReadLine
'----- Извлечение файла из ярлыка -----
If StrComp(FSO.GetExtensionName(MyFile), "LNK", 1) = 0 Then
MyFile = MyShell.CreateShortcut(MyFile).TargetPath
End If
'--------------------------------------
If FSO.FileExists(MyFile) Then
NewName = TrgPath & FSO.GetFile(MyFile).Name
If Not FSO.FileExists(NewName) Then
FSO.CopyFile MyFile, TrgPath
End If
ElseIf FSO.FolderExists(MyFile) Then
NewName = TrgPath & FSO.GetFolder(MyFile).Name
If Not FSO.FolderExists(NewName) Then
FSO.CopyFolder MyFile, TrgPath
End If
End If
Loop
Set TempFile = Nothing
Set MyShell = Nothing
Set FSO = Nothing
WScript.Quit() |
| Vladimir77 wrote: | | Ссылки на папки создаются по первой кнопке, но вторая кнопка их не обрабатывает. |
Прошу прощения - про папки я не подумал 
Вот исправленный скрипт:
| Code: | Dim ListFile, FSO, TargetDir, NewName
Set ListFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(Wscript.Arguments(0), 1)
Set FSO = CreateObject("Scripting.FileSystemObject")
TargetDir = InputBox("Копировать в каталог:","Копирование",Wscript.Arguments(1))
If Len(TargetDir) > 0 Then
Dim SelFile
Do While Not ListFile.AtEndOfStream
SelFile = ListFile.ReadLine
If FSO.FileExists(SelFile) Then
NewName = TargetDir & FSO.GetFile(SelFile).Name
If Not FSO.FileExists(NewName) Then
FSO.CopyFile SelFile, TargetDir
End If
ElseIf FSO.FolderExists(SelFile) Then
NewName = TargetDir & FSO.GetFolder(SelFile).Name
If Not FSO.FolderExists(NewName) Then
FSO.CopyFolder SelFile, TargetDir
End If
End If
Loop
End If
Set ListFile = Nothing
Set FSO = Nothing
WScript.Quit() |
А еще заметил особенность (внимание, фича!) - если в параметрах вызова скрипта есть "%L", то панель TC самостоятельно обновится после того, как скрипт отработает.
Т. о., кнопка для этого скрипта:
| Code: | TOTALCMD#BAR#DATA
d:\CopyFromList.vbs
%P%N %T %L
shell32.dll,66
Копирование из файла-списка
-1
|
|
|
| Back to top |
|
|
|
|
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
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
