Total Commander

KF-121 писал(а):А каже быть с перемещением самого архива в папку

Перед WScript.Quit добавь:

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

Кнопке (команде) надо передать параметр %P%N.

Огромное Спасибо!

WScript.CreateObject("WScript.Shell").SendKeys "{F7}" & Date & "{Enter}" & "{Enter}"

Если англицкая раскладка стоит, то создается папка например 23.08.06
если руская то 23ю08ю06

А можно расказать по позробнее про параметы %P %N %L и т.д. и вообще какие бывают

KF-121 писал(а):А можно расказать по позробнее про параметы %P %N %L и т.д. и вообще какие бывают

Читай справку.

KF-121 писал(а):
WScript.CreateObject("WScript.Shell").SendKeys "{F7}" & Date & "{Enter}" & "{Enter}"
Если англицкая раскладка стоит, то создается папка например 23.08.06
если руская то 23ю08ю06

Это изевстная мелкомягкая проблема SendKeys.

Очень бы хотелось кнопочку увидеть:
выделяешь несколько папок в одной панели... нажимаешь на ЭТУ кнопочку и у тебя появляются табы на этой же панели соответствующие выделиным папочкам...

keiko писал(а):нажимаешь на ЭТУ кнопочку и у тебя появляются табы на этой же панели соответствующие выделиным папочкам...

А просто перетащить их на панель заголовков не судьба?

Решился таки выложить (пущай до кучи будет, может кому и пригодится)

Вызов папки "Мои документы" в проводнике

Код: Выделить всё

TOTALCMD#BAR#DATA
shell:Personal

mydocs.dll
Мои документы

Кнопка запускает приложение под курсором с приоритетом "НИЗКИЙ":

Код: Выделить всё

TOTALCMD#BAR#DATA
cmd /c start
/D%p /LOW %n
C:\WINDOWS\system32\shell32.dll,24
Запуск приложения с приоритетом "НИЗКИЙ"


-1

StrangeRRor писал(а):Кнопка запускает приложение под курсором с приоритетом "НИЗКИЙ":

http://forum.wincmd.ru/viewtopic.php?p=15388#15388

LocKtaR-o-DarK писал(а):Кнопка для сворачивания всех программ.

Ведь есть же "WIN"+D?
А также "WIN"+"Pause" для вызова "Свойства системы".
"WIN" - это флажок на кнопкемежду Ctrl и Alt.

В Windows (начиная с 2000) есть занимательная утилитка cipher.exe. Она предназначена для шифрования файлов в NTFS. однако есть у неё и ещё одна занятная возможность.
Кнопка:

Код: Выделить всё

TOTALCMD#BAR#DATA
cipher.exe
/W:C:\
C:\WINDOWS\UnGins.exe
Очистить неиспользуемое место на диске C:


-1

Диск указываем нужный.

Кнопка может пригодиться для окончательного и безповоротного затирания "удалённых" файлов, которые влёгкую востанавливаются любым анерейсером.

Paranoik писал(а):Подскажите, как сделать список файлов с дальнейшей дозаписью при выделении объектов под курсором?
И еще. Как сделать, чтобы список файлов создавался в противоположной панели?

Код: Выделить всё

TOTALCMD#BAR#DATA
%comspec%
/c type %L>>"c:\filelist.lst"
shell32.dll,225
Список файлов

1
-1

Код: Выделить всё

TOTALCMD#BAR#DATA
%comspec%
/c type %L>>"%T\filelist.lst"
shell32.dll,134
Список файлов в противоположной панели

1
-1

Если нужна не дозапись в список, а обновление, то вместо ">>" ставим ">"

Имя файла списка, параметры и значки можно менять по своему усмотрению

D1P писал(а):В Windows (начиная с 2000) есть занимательная утилитка cipher.exe. Она предназначена для шифрования файлов в NTFS. однако есть у неё и ещё одна занятная возможность.

Предлагаю вариант кнопки:

Код: Выделить всё

TOTALCMD#BAR#DATA
cipher.exe
/w:%P
%windir%\system32\cleanmgr.exe
Очистить неиспользуемое место на текущем диске
%windir%\system32\

-1

Затираться будет свободное место на диске, который открыт в активной панели.

Вкл/выкл список исключений(«черный список»)

Код: Выделить всё

TOTALCMD#BAR#DATA
cm_SwitchIgnoreList

C:\totalcmd\TOTALCMD.EXE,11



2922

Total Commander

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