Total Commander :: Обмен кнопками

Обмен кнопками

through

FAQ

[^/[Print]\]
Goto page Previous 1, 2, 3 ... 33, 34, 35 ... 43, 44, 45 Next :| |:
Total Commander -> Секреты и советы

#496: Author: Владимир М,

Posted: Sun Apr 18, 2010 23:55
—
Tol!k,
большое спасибо! работает.

#497: Author: Tol!k, Location: Арзамас

Posted: Mon Apr 19, 2010 15:29
—
Владимир М

LocKtaR-o-DarK™ wrote:

Как производить обмен кнопками?

— чтобы поделиться кнопкой, нажмите правой кнопкой мыши по вашей кнопке и выберите Копировать, после чего вставляйте содержимое буфера в пост как Код: или блок, и, при необходимости, отредактируйте код;
— чтобы забрать кнопку, скопируйте содержимое кода нужной кнопки, правой кнопкой мыши щёлкните на нужном месте панели инструментов (кнопок) тотала и выберите Вставить;

Примечание:
— если, по каким-то причинам, значок вставленной кнопки не отображается или отображается не должным образом, необходимо обновить кнопку, для этого щёлкните по вставленной пустой или неверно отображаемой кнопке правой кнопкой мыши, выберите Изменить, после чего нажмите OK.

Т.ч. "файл кпопки с расширением vbs" создавать не нужно.
vbs — это скрипты на Visual Basic Script, а не кнопки

#498: Author: LocKtaR-o-DarK, Location: Москва

Posted: Tue Apr 20, 2010 00:55
—

Владимир М wrote:

возможно туплю я, но чего же тут непонятного делал всё как написано тут! http://forum.wincmd.ru/viewpost.php?p=8314

это решение немного устарело
вот более свежее

#499: Author: gora, Location: Иваново

Posted: Wed Apr 21, 2010 10:43
—

JKT wrote:

А вот как-бы чтобы он создавался не под именем "playlist.m3u" , а "Имя_текущей_папки.m3u" Было-бы вообще здорово.

Вариант с однострочным батником устроит?

Файл m3u.bat

Code:

For %%x In ("%cd%") Do Copy "%~1" "%cd%\%%~nx.m3u"

Положите его в любое удобное место (у меня %commander_path%\Utilites\m3u.bat)
Создайте кнопку:

Code:

TOTALCMD#BAR#DATA
%commander_path%\Utilites\m3u.bat
%L
%commander_path%\WCMICONS.DLL,57
Создать плейлист

1
-1

#500: Author: JKT, Location: Харьков

Posted: Wed Apr 21, 2010 11:33
—
gora
Спасибо огромное. Все работает нормально. Плейлист из выделенных файлов с именем текущей папки. То, что надо.

#501: Author: garmonist,

Posted: Fri Apr 23, 2010 15:25
—
Перечитал всю тему. Решения нашел только частичные.

Помогите, пожалуйста, создать код для двух кнопок:

1. БЭКАП
1.1. Файл необходимо заархивировать в архив {ИмяФайла}_[ГГГГ.ММ.ДД чч.мм.сс].rar.
1.2. Переместить его в папку {ПутьКФайлу}\X-ARC. Если такой папки не существует, то ее надо создать.

2. ВОССТАНОВЛЕНИЕ
2.1. Архив необходимо распаковать в паку {ИмяАрхива}.
2.2. Распакованный файл переименовать в {ИмяАрхиваБезРасширения}. Расширение у распакованного должно остаться исходным.

При этом подразумевается, что бэкапим и восстанавливаем только один файл.

Есть ощущения, что это надо делать в вб-скрипте. Но как вставить в вбс запуск винрара с параметрами - вообще не представляю.

Для пункта 1.1. у меня есть параметры TC для архивирования:

Code:

a -dh -m3 -ag"_[yyyy.mm.dd hh.mm.ss]" "%O".rar ""%N""

Для пункта 1.2. есть код вбс для создания папки:

Code:

Option Explicit
Dim strFolderName as String
strFolderName = CreateObject("WScript.Shell").CurrentDirectory & "\X-ARC"
Dim objFSO As FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
If Not objFSO.FolderExists(strFolderName) Then
objFSO.CreateFolder(strFolderName)
End If

Для пункта 2.1. есть параметры кнопки TC для извлечения из архива:

Code:

x %N "%O"\

Для пункта 2.2 знаю, как переименовать распакованные файлы (учитывая, что WScript.Arguments(0) - это путь, куда были распакованы файлы):

Code:

Dim strPath as String
strPath = WScript.Arguments(0)
Dim objFSO As FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objFolder As Folder
Set objFolder = objFSO.GetFolder(strPath)
Dim objFile As File
Dim strOldFileName As String
Dim strNewFileName As String
Dim strFilePath As String
If objFolder.Files.Count = 1 Then
For Each objFile In objFolder.Files
strOldFileName = objFile.Name
strFilePath = objFile.ParentFolder
'Имя первой родительской папки
strNewFileName = Right(strFilePath, Len(strFilePath) - InStrRev(strFilePath, "\", -1))
'Добавляем исходное расширение
strNewFileName = strNewFileName & "." & Right(strOldFileName, Len(strOldFileName) - InStrRev(strOldFileName, "."))
'Переименовываем файл
Name strFilePath & "\" & strOldFileName As strFilePath & "\" & strNewFileName
Next
End If

#502: Author: gora, Location: Иваново

Posted: Sat Apr 24, 2010 13:45
—
garmonist

Вариант с батником:
Файл Rar_unRAR.bat

Code:

Set PathRAR="c:\Program Files\WinRAR\WinRAR.exe"
If %2#==B# (
If Not Exist "%cd%\X-ARC\" MD "%cd%\X-ARC\"
%PathRAR% a -dh -m3 -ag"_[yyyy.mm.dd hh.mm.ss]" "%cd%\X-ARC\%~n1.rar" "%~1"
) Else (
If Not Exist "%cd%\%~n1\" MD "%cd%\%~n1\"
%PathRAR% x "%~1" "%cd%\%~n1\"
For %%I In ("%cd%\%~n1\*") Do Ren "%%I" "%~n1%%~xI"
)

И две кнопки:
- Бекап:

Code:

TOTALCMD#BAR#DATA
%commander_path%\Utilites\Rar_unRAR.bat
%N B
%commander_path%\WCMICONS.DLL,30
Бекап

1
-1

- Восстановить:

Code:

TOTALCMD#BAR#DATA
%commander_path%\Utilites\Rar_unRAR.bat
%N
%commander_path%\WCMICONS.DLL,31
Восстановить

1
-1

#503: Author: garmonist,

Posted: Mon Apr 26, 2010 09:49
—
gora
Честно говоря, когда увидел так мало кода, не поверил, что он рабочий. Но офигеть! Всё работает! Спасибо большое)

#504: Author: Владимир М,

Posted: Wed Apr 28, 2010 14:07
—
Tol!k
да я уже понял свою ошибку, прошу прощения у форумян за то, что заср.л ветку бредом Embarassed

p.s. сорри за оффтоп

#505: Author: Bubek,

Posted: Fri Apr 30, 2010 13:20
—
Помогите сделать сделать такую же кнопку, как

Code:

TOTALCMD#BAR#DATA
cmd /c setlocal&title 7z-packing... &for /f "tokens=1-6 delims=:., " %a in ('echo %date% %time:~0,8%') do for %i in ("%CD%") do
for /f "delims=" %%R in ("%S") do cls&"C:\Program Files\7-Zip\7z" a -pПАРОЛЬ -scswin -m0=bcj -m1=lzma:d=21 -ms -mmt """""%%~nxi_[%%c.%%b.%%a-%%d.%%e.%%f].7z""""" """"%%R""""
keymgr.dll
Создание зашифрованного 7z-архива

-1

но, чтобы она делала архив по названию файла(папки), без шифрования и пароля

пример: в папке Архив находится папка Данные, архивируем папку Данные и получаем название вида:
1. Дата_время_имя папки
2010.04.29_13.22.23_Данные.7z
Спасибо.

#506: Author: gora, Location: Иваново

Posted: Fri Apr 30, 2010 14:27
—
Bubek

Code:

TOTALCMD#BAR#DATA
cmd /c setlocal&title 7z-packing... &for /f "tokens=1-6 delims=:., " %a in ('echo %date% %time:~0,8%') do
"C:\Program Files\7-Zip\7z" a -scswin -m0=bcj -m1=lzma:d=21 -ms -mmt """""%%c.%%b.%%a_%%d.%%e.%%f_%N.7z""""" """"%N""""
keymgr.dll
Создание 7z-архива

-1

#507: Author: Bubek,

Posted: Fri Apr 30, 2010 14:55
—
gora
Спасибо, работает

#508: Author: ytka00,

Posted: Sun May 09, 2010 14:36
—
а можно ли както с помощью кнопки переключать размер эскизов? было бы удобно переключаться между 4:3 и 16:9

#509: Author: MVV, Location: Ростов-Дон

Posted: Sun May 09, 2010 16:26
—

pokoynik wrote:

а можно ли както с помощью кнопки переключать размер эскизов? было бы удобно переключаться между 4:3 и 16:9

Сомневаюсь. При изменении размера эскиза ТК будет перечитывать все эскизы по новой, поэтому это будет слишком долго. Да и размер эскизов поменять не так-то просто без захода в настройки или перезапуска ТК.

#510: Author: ytka00,

Posted: Sun May 09, 2010 17:49
—
у меня они не кешируются, разницы в скорости отображения не заметил. При изменени размера в насторйках перезапуск не требуется

Total Commander -> Секреты и советы

output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page Previous 1, 2, 3 ... 33, 34, 35 ... 43, 44, 45 Next :| |: Page 34 of 45