Batya
|
Posted: Fri Apr 28, 2006 11:25 Post subject: |
|
|
dxangelo
Code: | '=====================================================================
' Запуск поиска в текущей папке по содержимому тексту из буфера
'=====================================================================
Dim TCS, Str
Set TCS = CreateObject("TCScript.Helper")
Str = TCS.GetTextFromClip ' Текст из буфера
TCS.Pause=100
TCS.LockTC True
TCS.SendCommand(501)
TCS.SendKeystroke ("{DEL}") ' Очистить файловую маску
TCS.SendKeystroke ("{TAB 5} ") ' Перейти к чекбоксу и нажать пробел
If Len(Str) > 0 Then
TCS.SendKeystroke (Str) ' Вставить текст
'TCS.SendKeystroke ("+{TAB 6}") ' Вернуться в поле ввода файловой маски
TCS.SendKeystroke ("{Enter}") ' Запустить поиск
End If
TCS.LockTC False
Set TCS = Nothing
Wscript.Quit |
При желании, для ввода файловой маски в скрипте можно закомментировать 16 строку и раскомментировать 15 строку. Тогда поиск не запустится - нужно ввести маску и нажать Enter. |
|