| View previous topic :: View next topic |
| Author |
Message |
Stinger
Joined: 16 May 2008
Posts: 9
|
 (Separately) Posted: Fri May 16, 2008 19:46 Post subject: Кнопка для фильтра |
 |
|
| Как создать кнопку, которая выводила бы к примеру файлы по шаблону *.doc? |
|
| Back to top |
|
 |
DrShark
Joined: 21 Oct 2006
Posts: 911
Location: Kyiv, Ukraine
|
| (Separately) Posted: Fri May 16, 2008 19:50 Post subject: |
|
|
| В каком смысле "выводила бы"? |
|
| Back to top |
|
|
Worros
Joined: 19 Jan 2007
Posts: 1123
|
| (Separately) Posted: Fri May 16, 2008 20:10 Post subject: |
|
|
Stinger
Создай кнопку, укажи в ней команду cm_SrcUserDef.
_________________
педофилия, каннибализм, бетономешалка !!! |
|
| Back to top |
|
|
Stinger
Joined: 16 May 2008
Posts: 9
|
| (Separately) Posted: Fri May 16, 2008 20:18 Post subject: |
|
|
| Не так чтобы сразу отфильтрованые выводило а не диалог с фмльтрами |
|
| Back to top |
|
|
Worros
Joined: 19 Jan 2007
Posts: 1123
|
| (Separately) Posted: Fri May 16, 2008 20:23 Post subject: |
|
|
Не получится. Разве что для последнего использовавшегося типа можно.
_________________
педофилия, каннибализм, бетономешалка !!! |
|
| Back to top |
|
|
Volniy
Joined: 15 Dec 2004
Posts: 585
Location: Местный
|
| (Separately) 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. |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
