View previous topic :: View next topic |
Author |
Message |
Владимир М
Joined: 16 Sep 2009 Posts: 78
|
(Separately) Posted: Sun Apr 18, 2010 23:55 Post subject: |
|
|
Tol!k,
большое спасибо! работает. _________________ Windows7 x64 TC 7.55a |
|
Back to top |
|
|
Tol!k
Joined: 01 Apr 2008 Posts: 1727 Location: Арзамас
|
(Separately) Posted: Mon Apr 19, 2010 15:29 Post subject: |
|
|
Владимир М
LocKtaR-o-DarK™ wrote: | Как производить обмен кнопками?
— чтобы поделиться кнопкой, нажмите правой кнопкой мыши по вашей кнопке и выберите Копировать, после чего вставляйте содержимое буфера в пост как Код: или блок, и, при необходимости, отредактируйте код;
— чтобы забрать кнопку, скопируйте содержимое кода нужной кнопки, правой кнопкой мыши щёлкните на нужном месте панели инструментов (кнопок) тотала и выберите Вставить;
Примечание:
— если, по каким-то причинам, значок вставленной кнопки не отображается или отображается не должным образом, необходимо обновить кнопку, для этого щёлкните по вставленной пустой или неверно отображаемой кнопке правой кнопкой мыши, выберите Изменить, после чего нажмите OK.
| Т.ч. "файл кпопки с расширением vbs" создавать не нужно.
vbs — это скрипты на Visual Basic Script, а не кнопки |
|
Back to top |
|
|
LocKtaR-o-DarK
Joined: 12 Aug 2005 Posts: 349 Location: Москва
|
(Separately) Posted: Tue Apr 20, 2010 00:55 Post subject: |
|
|
это решение немного устарело
вот более свежее _________________ |
|
Back to top |
|
|
gora
Joined: 30 Dec 2004 Posts: 442 Location: Иваново
|
(Separately) Posted: Wed Apr 21, 2010 10:43 Post subject: |
|
|
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
|
_________________ Win7 SP1 Ultimate x64, TC8.52a x64 |
|
Back to top |
|
|
JKT
Joined: 22 Sep 2009 Posts: 116 Location: Харьков
|
(Separately) Posted: Wed Apr 21, 2010 11:33 Post subject: |
|
|
gora
Спасибо огромное. Все работает нормально. Плейлист из выделенных файлов с именем текущей папки. То, что надо. |
|
Back to top |
|
|
garmonist
Joined: 23 Apr 2010 Posts: 14
|
(Separately) Posted: Fri Apr 23, 2010 15:25 Post subject: |
|
|
Перечитал всю тему. Решения нашел только частичные.
Помогите, пожалуйста, создать код для двух кнопок:
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 для извлечения из архива:
Для пункта 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 |
|
|
Back to top |
|
|
gora
Joined: 30 Dec 2004 Posts: 442 Location: Иваново
|
(Separately) Posted: Sat Apr 24, 2010 13:45 Post subject: |
|
|
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
|
_________________ Win7 SP1 Ultimate x64, TC8.52a x64 |
|
Back to top |
|
|
garmonist
Joined: 23 Apr 2010 Posts: 14
|
(Separately) Posted: Mon Apr 26, 2010 09:49 Post subject: |
|
|
gora
Честно говоря, когда увидел так мало кода, не поверил, что он рабочий. Но офигеть! Всё работает! Спасибо большое) |
|
Back to top |
|
|
Владимир М
Joined: 16 Sep 2009 Posts: 78
|
(Separately) Posted: Wed Apr 28, 2010 14:07 Post subject: |
|
|
Tol!k
да я уже понял свою ошибку, прошу прощения у форумян за то, что заср.л ветку бредом
p.s. сорри за оффтоп _________________ Windows7 x64 TC 7.55a |
|
Back to top |
|
|
Bubek
Joined: 21 Jul 2007 Posts: 20
|
(Separately) Posted: Fri Apr 30, 2010 13:20 Post subject: |
|
|
Помогите сделать сделать такую же кнопку, как
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
Спасибо. |
|
Back to top |
|
|
gora
Joined: 30 Dec 2004 Posts: 442 Location: Иваново
|
(Separately) Posted: Fri Apr 30, 2010 14:27 Post subject: |
|
|
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 |
_________________ Win7 SP1 Ultimate x64, TC8.52a x64 |
|
Back to top |
|
|
Bubek
Joined: 21 Jul 2007 Posts: 20
|
(Separately) Posted: Fri Apr 30, 2010 14:55 Post subject: |
|
|
gora
Спасибо, работает |
|
Back to top |
|
|
ytka00
Joined: 13 Oct 2006 Posts: 53
|
(Separately) Posted: Sun May 09, 2010 14:36 Post subject: |
|
|
а можно ли както с помощью кнопки переключать размер эскизов? было бы удобно переключаться между 4:3 и 16:9 |
|
Back to top |
|
|
MVV
Joined: 15 Oct 2009 Posts: 4811 Location: Ростов-Дон
|
|
Back to top |
|
|
ytka00
Joined: 13 Oct 2006 Posts: 53
|
(Separately) Posted: Sun May 09, 2010 17:49 Post subject: |
|
|
у меня они не кешируются, разницы в скорости отображения не заметил. При изменени размера в насторйках перезапуск не требуется |
|
Back to top |
|
|
|