<!--QuoteBegin-Batya+Dec 7 2004, 17:20--><div class='quotetop'>QUOTE(Batya @ Dec 7 2004, 17:20)</div><div class='quotemain'><!--QuoteEBegin-->Ну, для этого ведь можно и стандартную горячую клавишу Ctrl+F12 использовать. Весь вопрос именно в том, как одной командой задавать определенный фильтр.
<!--QuoteEnd--></div><!--QuoteEEnd-->
ОК. Тогда повесь на кнопку VBS-файл следующего содержания (разумеется, заменив "Новые файлы" на название нужного тебе фильтра)
- Код: выделить все
Option Explicit
Dim TCS
Set TCS = CreateObject("TCSCRIPT.Helper")
TCS.Wait=False
TCS.SendCommand "cm_SrcUserDef"
TCS.SendKeystroke ">Новые файлы"
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
Ну и, конечно, для работы этого скрипта должен быть установлен <a href='http://wincmd.ru/files/tcwshelp_b6.zip' target='_blank'> "WSH Helper for TС beta6"</a>.
PS Весьма странно, что этот вариант не предложил
SAM, который в свое время просто-таки заставил меня эту байду сварганить <!--emo&<_<-->[img]style_emoticons/<#EMO_DIR#>/dry.gif[/img]<!--endemo-->