» Плагины для Total Commander

CaptainFlint

Цитата:

зайти в Тотале в Сетевое окружение - там показан список всех установленных FS-плагинов.

При попытке зайти в Net - Network connections ничего не получается...
или ты меня разыгрываешь или это что то другое...

rater2

Цитата:

При попытке зайти в Net - Network connections ничего не получается...

Не надо никаких Network connections! Просто жмёшь Alt+F1 - вывалится список дисков, а в конце этого списка есть пункт [-\-] Network Neighborhood - выбираешь его, там твой плагин и будет в списке.

Извините, если уже было, но ищется плагин для работы с архивами WinUHA или хотя бы аддон для мультиарка под этот архиватор!

А UHARC для WinUHA не подходит? Это не одно и то же?

cracklover

Цитата:

ищется плагин для работы с архивами WinUHA или хотя бы аддон для мультиарка под этот архиватор!

Ответил в теме про MultiArc. Там же и аддон. Вообще-то ссылка на эту тему есть шапке

To arsvrn:


Огромное спасибо вам от меня.

Ваши советы и аддон помогли мне внедрить в свою сборку Тотала, которую я выкладываю для рубордистов и всех желающих, поддержку этого замечательного архиватора!!!

Маленькое усовершенствование для кнопки запуска любимой программы.
Махом открывает все выделенные файлы. Если курсор стоит на папке или на [..] то просто открывает программу.
Делаем кнопку на панели
Код: Команда: %COMMANDER_PATH%\Tools\WSH\multi.vbs "%COMMANDER_PATH%\Tools\Mark\Mark.exe"
Параметры: %F

mozers
Большое спасибо с редакторами все понятно. А нельзя ли ещё и скрипт для Small CD-Writer?

LEX1
Да он будет практически такой же, только имена файлов/каталогов для передачи в него надо склеить в одну строку (так как это делает ChoiceEditor). А зачем тебе? Есть же меню "Отправить" по правой кнопке мыши... Неужели неудобно?


Добавлено:
А... ладно. лови:
Код: Option Explicit
Dim WshShell, FSO, sEditor, objArgs, FileList, sFile
Set objArgs = WScript.Arguments
Set WshShell = WScript.CreateObject("WScript.Shell")
sEditor = WshShell.ExpandEnvironmentStrings(objArgs(0))
If objArgs.Count < 2 Then
    WshShell.Run """" & sEditor & """", 1, False
Else
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set FileList = FSO.OpenTextFile(objArgs(1), 1, False)
    Do While Not FileList.AtEndOfStream
        sFile = sFile & """" & FileList.ReadLine & """ "
    Loop
    msgbox sFile
    WshShell.Run """" & sEditor & """ " & sFile, 1, False
End If
WScript.Quit

mozers
Я попробовал для Small CD Writer у меня выдаёт ошибку.
У меня прога лежи в папке командер в папку Utils, файлик multi.vbs закинул в корневой каталог тотала. Я сделал следующее:
создал кнопку с параметрами:

Код:
комманда: %COMMANDER_PATH%\multi.vbs "%COMMANDER_PATH%\Utils\SmallCDWriter\SCDWriter.exe
параметр: %F

<deleted>
извеняюсь,бред напиал

mozers

Цитата:

Неужели неудобно?

Во-первых я правой кнопкой привык выделять т.ч. не слишком удобно, а во-вторых я был уверен, что это не сработает с несколькими файлами. Ещё раз спасибо.

Boy Genius
У меня все работает.

Это может зависить от версии тотала? Я пользуюсь 6,03

Boy Genius
Проверил с TC 6.03 работает. Возможно дело в пробелах в пути к TC?

LEX1 я не знаю, я в этом вообще ничерта не понимаю.

Boy Genius
На предыдущей странице у тебя нет кавычки в конце, правильно должно быть так:
команда: %COMMANDER_PATH%\multi.vbs "%COMMANDER_PATH%\Utils\SmallCDWriter\SCDWriter.exe"

LEX1
Спасибо за помощь, ты был прав.
НО! Я понял, что это всё нужно, чтобы добавть выбранные файлы в проэкт, чтобы записать на CD. А у меня вылетает окошко с перечислеием файлов, которые я выбрал, потом запускается Small CD Writer, но он пустой, в проэкте нет ни одного файла....
Может, я что то не правильно понял?

Boy Genius

Цитата:

потом запускается Small CD Writer, но он пустой

Попробуй скопировать Small CD Writer в корень диска. (%COMMANDER_PATH%\multi.vbs "C:\SCDWriter.exe")

Чтобы убрать окошко, в multi.vbs удали строчку "msgbox sFile"

LEX1
Окошко не проблема, почему файлы в проэкт не добавляются?

Boy Genius
Очевидно ты выделяешь файлы и каталоги на одной панели, а потом переходишь на другую и затем уже жмешь кнопку. Так нечестно
Для проверки можно вставить вместо msgbox sFile:
Код:     dim ss
    ss=InputBox("Скопируйте текст со строки ввода в ком.строку и запустите." & vbNewLine & "Работает?", "Тест командной строки", """" & sEditor & """ " & sFile)

mozers
Да нет вроде всё в ожной панели. Да уж сирился... добавляю через правую кнопку.

mozers
Видимо неточность в скрипте, с файлами все нормально, а вот если выделить папку она добавляется, но без содержимого. А... понял дело в бэкслеше на конце имени папки.

Стоит тотал от samlab'a. Поставил плугин device manager чтобы смотреть установленные устройства, а в итоге ничего посмотреть не могу. Никто не подскажет в чём дело?

LimaR

Цитата:

Стоит тотал от samlab'a. Поставил плугин device manager чтобы смотреть установленные устройства, а в итоге ничего посмотреть не могу. Никто не подскажет в чём дело?

А если на чистый TC этот плагин поставить?
Вообще-то SamLab на Ру-Борде появляется, напиши ему...

LEX1
Абсолютно верно! Дело именно в слеше в конце имени каталога. Я это не заметил Лови исправленный вариант:
Код: ' List2String.vbs
' Скрипт для загрузки выделенных файлов/каталогов в Small CD-Writer
' Создаем кнопку на панели инструментов
' Команда: %COMMANDER_PATH%\WSH\List2String.vbs "%COMMANDER_PATH%\Tools\SCDWriter.exe"
' Параметры: %L
' -------------------------------------------------------------------
Option Explicit
Dim WshShell, FSO, sProg, objArgs, FileList, sOneFile, sStringFiles
Set objArgs = WScript.Arguments
Set WshShell = WScript.CreateObject("WScript.Shell")
sProg = WshShell.ExpandEnvironmentStrings(objArgs(0))
If objArgs.Count < 2 Then
WshShell.Run """" & sProg & """", 1, False
Else
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FileList = FSO.OpenTextFile(objArgs(1), 1, False)
Do While Not FileList.AtEndOfStream
sOneFile = FileList.ReadLine
If Right(sOneFile, 1) = "\" Then sOneFile = Left(sOneFile, Len(sOneFile) - 1) 'Нужно только для SCDWriter
sStringFiles = sStringFiles & """" & sOneFile & """ "
Loop
WshShell.Run """" & sProg & """ " & sStringFiles, 1, False
End If
WScript.Quit

mozers
Tnx

Цитата:

как SCDWriter будет отличать файл и одноименный с ним каталог я не представляю

А они не могут одновременно существовать в Win98, по крайней мере. В WinXP (NTFS) впрочем, тоже.

Плагин для записи дисков с помощью SCDWriter сделал в виде инсталятора со справкой..
_http://rapidshare.de/files/8017701/___plugins_Burning_disk.rar.html

Greay
Состав плагина: вышеприведенный скрипт, SCDWriter, инсталлятор . Кстати, правильнее не "Файл значка: C:\Program Files\Total Commander\Tools\SCDWriter.exe" а "%COMMANDER_PATH%\Tools\SCDWriter.exe"

"Состав плагина: вышеприведенный скрипт" - совершенно верно.. он работает. А на счёт "%COMMANDER_PATH%\Tools\SCDWriter.exe" ты, наверное прав..

необходимо скидывать архив софта находящийся в папках с глубокой структурой, до 10 веток, на DVD. как реализовать не знаю!? Как добиться того, чтобы папки с программами убивались при архивировании на dvd, а структура папок-групп оставалась. слышал, что существует какой-то плагин для TC, помогите найти или подскажите как написАть...