Volniy
|
 Posted: Sat May 17, 2008 01:39 Post subject: Re: Кнопка для фильтра |
 |
|
| Stinger wrote: | | Как создать кнопку, которая выводила бы к примеру файлы по шаблону *.doc? |
Вот такой VBS-файл можно повесить на кнопку | Code: | Option Explicit
Dim TCS
Const sFilter="*.doc"
Set TCS=CreateObject("TCSCRIPT.Helper")
TCS.Pause=25
If bCheck Then
TCS.SendCommand "cm_SrcAllFiles"
Else
TCS.Wait=False
TCS.SendCommand "cm_SrcUserDef"
TCS.SendKeystroke sFilter
TCS.SendKeystroke "{ENTER}"
End If
Set TCS=Nothing
WScript.Quit
Function bCheck()
Dim sFile
sFile=WScript.ScriptFullName
bCheck=TCS.INIRead(sFile, "FilterState", "Value", 0)
TCS.INIWrite sFile, "FilterState", "Value", Not bCheck
End Function
|
Достоинство: она даже будет переключать между фильтрованным и нефильтрованным видами.
Недостаток: нужна установка Script Helper ActiveX for Total Commander. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
