View previous topic :: View next topic |
Author |
Message |
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Thu Aug 17, 2006 14:23 Post subject: |
|
|
KF-121 wrote: | А каже быть с перемещением самого архива в папку |
Перед WScript.Quit добавь:
Code: | 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. |
|
Back to top |
|
|
KF-121
Joined: 13 Feb 2006 Posts: 90
|
(Separately) Posted: Thu Aug 17, 2006 14:35 Post subject: |
|
|
Огромное Спасибо! _________________ Во всем виновато КАКАДУ!
--------------------------------
IIIypuk©KF-121 |
|
Back to top |
|
|
KF-121
Joined: 13 Feb 2006 Posts: 90
|
(Separately) Posted: Wed Aug 23, 2006 16:29 Post subject: |
|
|
Quote: | WScript.CreateObject("WScript.Shell").SendKeys "{F7}" & Date & "{Enter}" & "{Enter}" |
Если англицкая раскладка стоит, то создается папка например 23.08.06
если руская то 23ю08ю06
А можно расказать по позробнее про параметы %P %N %L и т.д. и вообще какие бывают _________________ Во всем виновато КАКАДУ!
--------------------------------
IIIypuk©KF-121 |
|
Back to top |
|
|
CaptainFlint
Joined: 14 Dec 2004 Posts: 6151 Location: Москва
|
(Separately) Posted: Wed Aug 23, 2006 16:37 Post subject: |
|
|
KF-121 wrote: | А можно расказать по позробнее про параметы %P %N %L и т.д. и вообще какие бывают |
Читай справку. _________________ Почему же, ё-моё, ты нигде не пишешь "ё"? |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Wed Aug 23, 2006 17:11 Post subject: |
|
|
KF-121 wrote: | Quote: | WScript.CreateObject("WScript.Shell").SendKeys "{F7}" & Date & "{Enter}" & "{Enter}" |
Если англицкая раскладка стоит, то создается папка например 23.08.06
если руская то 23ю08ю06
|
Это изевстная мелкомягкая проблема SendKeys. |
|
Back to top |
|
|
keiko
Joined: 16 Sep 2005 Posts: 43
|
(Separately) Posted: Fri Aug 25, 2006 23:58 Post subject: |
|
|
Очень бы хотелось кнопочку увидеть:
выделяешь несколько папок в одной панели... нажимаешь на ЭТУ кнопочку и у тебя появляются табы на этой же панели соответствующие выделиным папочкам... |
|
Back to top |
|
|
CaptainFlint
Joined: 14 Dec 2004 Posts: 6151 Location: Москва
|
(Separately) Posted: Sat Aug 26, 2006 00:08 Post subject: |
|
|
keiko wrote: | нажимаешь на ЭТУ кнопочку и у тебя появляются табы на этой же панели соответствующие выделиным папочкам... |
А просто перетащить их на панель заголовков не судьба? _________________ Почему же, ё-моё, ты нигде не пишешь "ё"? |
|
Back to top |
|
|
LocKtaR-o-DarK
Joined: 12 Aug 2005 Posts: 349 Location: Москва
|
(Separately) Posted: Fri Sep 01, 2006 13:45 Post subject: |
|
|
Решился таки выложить (пущай до кучи будет, может кому и пригодится)
Вызов папки "Мои документы" в проводнике
Code: | TOTALCMD#BAR#DATA
shell:Personal
mydocs.dll
Мои документы |
_________________ |
|
Back to top |
|
|
StrangeRRor
Joined: 15 Jul 2006 Posts: 214
|
(Separately) Posted: Sat Sep 02, 2006 13:29 Post subject: |
|
|
Кнопка запускает приложение под курсором с приоритетом "НИЗКИЙ":
Code: | TOTALCMD#BAR#DATA
cmd /c start
/D%p /LOW %n
C:\WINDOWS\system32\shell32.dll,24
Запуск приложения с приоритетом "НИЗКИЙ"
-1 |
|
|
Back to top |
|
|
funduk
Joined: 16 Aug 2005 Posts: 1513 Location: Санкт-Петербург
|
|
Back to top |
|
|
aLexx
Joined: 14 Mar 2005 Posts: 442 Location: Новокузнецк
|
(Separately) Posted: Sun Sep 24, 2006 20:15 Post subject: |
|
|
LocKtaR-o-DarK wrote: | Кнопка для сворачивания всех программ. |
Ведь есть же "WIN"+D?
А также "WIN"+"Pause" для вызова "Свойства системы".
"WIN" - это флажок на кнопкемежду Ctrl и Alt. |
|
Back to top |
|
|
D1P
Joined: 20 Dec 2004 Posts: 2973 Location: Тбилиси
|
(Separately) Posted: Mon Sep 25, 2006 00:26 Post subject: |
|
|
В Windows (начиная с 2000) есть занимательная утилитка cipher.exe. Она предназначена для шифрования файлов в NTFS. однако есть у неё и ещё одна занятная возможность.
Кнопка:
Code: | TOTALCMD#BAR#DATA
cipher.exe
/W:C:\
C:\WINDOWS\UnGins.exe
Очистить неиспользуемое место на диске C:
-1
|
Диск указываем нужный.
Кнопка может пригодиться для окончательного и безповоротного затирания "удалённых" файлов, которые влёгкую востанавливаются любым анерейсером. _________________ База знаний о Total Commander
Блог |
|
Back to top |
|
|
LocKtaR-o-DarK
Joined: 12 Aug 2005 Posts: 349 Location: Москва
|
(Separately) Posted: Wed Oct 11, 2006 01:27 Post subject: |
|
|
Paranoik wrote: | Подскажите, как сделать список файлов с дальнейшей дозаписью при выделении объектов под курсором?
И еще. Как сделать, чтобы список файлов создавался в противоположной панели? |
Code: | TOTALCMD#BAR#DATA
%comspec%
/c type %L>>"c:\filelist.lst"
shell32.dll,225
Список файлов
1
-1 |
Code: | TOTALCMD#BAR#DATA
%comspec%
/c type %L>>"%T\filelist.lst"
shell32.dll,134
Список файлов в противоположной панели
1
-1 |
Если нужна не дозапись в список, а обновление, то вместо ">>" ставим ">"
Имя файла списка, параметры и значки можно менять по своему усмотрению _________________ |
|
Back to top |
|
|
Billy_Bons
Joined: 03 Mar 2006 Posts: 5
|
(Separately) Posted: Mon Oct 23, 2006 21:36 Post subject: |
|
|
D1P wrote: | В Windows (начиная с 2000) есть занимательная утилитка cipher.exe. Она предназначена для шифрования файлов в NTFS. однако есть у неё и ещё одна занятная возможность.
|
Предлагаю вариант кнопки:
Code: | TOTALCMD#BAR#DATA
cipher.exe
/w:%P
%windir%\system32\cleanmgr.exe
Очистить неиспользуемое место на текущем диске
%windir%\system32\
-1
|
Затираться будет свободное место на диске, который открыт в активной панели. |
|
Back to top |
|
|
Zorroz
Joined: 16 Dec 2004 Posts: 308 Location: Россия, Иркутская обл., г. Ангарск
|
(Separately) Posted: Thu Nov 09, 2006 17:58 Post subject: |
|
|
Вкл/выкл список исключений(«черный список»)
Code: |
TOTALCMD#BAR#DATA
cm_SwitchIgnoreList
C:\totalcmd\TOTALCMD.EXE,11
2922 |
_________________ Когда ангелу обрезают крылья, он учится летать на метле... |
|
Back to top |
|
|
|