kadvlad
|
 Posted: Tue Oct 27, 2009 22:08 Post subject: |
 |
|
Я пользуюсь такими кнопками (точнее, шорткатами через кнопки).
Брал здесь на форуме и в TCKB (спасибо авторам):
Упаковать:
RAR лежит в %PATH%, -hp = "шифровать имена файлов", "-m" = "степень сжатия", "-р" = "пароль на открытие", "-r" = "инфо для восстановления, %", "-v" = разбивать на части такого размера (байт).
| Code: | TOTALCMD#BAR#DATA
rar.exe
a -hpPASSWORD1 -m5 -vSIZE_BYTES -rr3 -pPASSWORD2 "%O.rar" ""%N""
%Commander_path%\TOTALCMD.EXE,7
Pack Here
1
-1 |
Распаковать (см. путь к скрипту):
| Code: | TOTALCMD#BAR#DATA
"%COMMANDER_PATH%\Plugins\UnpackHere.vbs"
%COMMANDER_PATH%\TOTALCMD.EXE,21
Unpack Here
1
-1 |
Скрипт "UnpackHere.vbs":
| Code: | Option Explicit
Dim TCS
Set TCS=CreateObject("TCSCRIPT.Helper")
TCS.Pause=100
TCS.SendCommand "cm_UnpackFiles", False
TCS.SendKeystroke "{DELETE}"
TCS.SendKeystroke "{TAB 4}"
TCS.SendKeystroke chr(32)
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
If WScript.Arguments.Count > 0 Then
Dim FSO, FileName, oFile, PathNew
Set FSO = CreateObject("Scripting.FileSystemObject")
FileName = WScript.Arguments(0)
Set oFile = FSO.GetFile(FileName)
PathNew = oFile.ParentFolder & "\" & FSO.GetBaseName(FileName) & "\Old\"
If Not FSO.FolderExists(PathNew) Then
FSO.CreateFolder(PathNew)
End If
oFile.Move(PathNew)
Set oFile = Nothing
Set FSO = Nothing
End If
WScript.Quit |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
