sa
|
 Posted: Fri Dec 17, 2010 11:08 Post subject: |
 |
|
| Flasher wrote: | | на большой список скриптов не напосёшься. |
Можно использовать один скрипт (требуется Helper от Volniy), а фильтр передавать параметром:
| Code: | '================================================================================
' File: Показ по фильтру.vbs
' Description: Показ файлов/каталогов по фильтру (Ctrl+F12)
' Работает при английской раскладке клавиатуры, либо нужны
' манипуляции с назначением клавиш для переключения на
' английский в региональных стандартах (см. комментарии)
' Parameters: Параметр: фильтр показа, в том числе с использованием масок
' (если с пробелами, то в кавычках). Пример: "*.doc;Мои рисунки\"
' Requirements: WSH Helper for TC by Volniy
' Installation: Создайте для скрипта, например, кнопку на панели инструментов TC
' Autor: sa
'================================================================================
Option Explicit
If WScript.Arguments.Count < 1 Then
MsgBox "Не задан параметр: фильтр показа!", _
vbOKOnly + vbCritical, _
"Показ по фильтру.vbs"
WScript.Quit
End If
Dim TCS, S
Set TCS = CreateObject("TCScript.Helper")
S = WScript.Arguments(0)
If InStr(1, S, " ", 1) > 0 Then
S = chr(34) & S & chr(34)
S = Replace (S, ";", chr(34) & ";" & chr(34),1,-1,1)
S = Replace (S, "|", chr(34) & "|" & chr(34),1,-1,1)
End If
With TCS
.SendCommand 314 'cm_SrcUserDef
' .SendKeystroke "^+1"
' Раскомментировать предыдущую строку, если переключение на английский язык
'настроить в региональных стандартах на Ctrl+Shift+1. Иначе следующая команда
'SendKeystroke не будет правильно выполняться при русской раскладке клавиатуры
.SendKeystroke S
.SendKeystroke "{Enter}"
' .SendKeystroke "^+2"
' Раскомментировать предыдущую строку, если переключение на русский язык
'настроено на Ctrl+Shift+2 и есть желание переключиться с английского на
'русский перед выходом из скрипта
End With
Set TCS = Nothing
Wscript.Quit |
Кнопка:
| Code: | TOTALCMD#BAR#DATA
%COMMANDER_PATH%\VBS\Показ по фильтру.vbs
"*.doc;Мои рисунки\"
wcmicons.dll,25
Показ по фильтру
0
-1 |
Upd
Удалил строку для входа в историю (Alt+Down).
Last edited by sa on Wed Dec 22, 2010 13:52; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
