Batya
|
Posted: Tue Jul 12, 2005 11:11 Post subject: |
|
|
ADv
1. Code: | '=====================================================================
' Запуск поиска в текущей папке файла, имя которого находится в буфере
'=====================================================================
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.Pause=100
TCS.LockTC True
TCS.SendCommand(501)
TCS.SendKeystroke (TCS.GetTextFromClip)
TCS.SendKeystroke ("{Enter}")
TCS.LockTC False
Set TCS=Nothing
Wscript.Quit |
2. По какому критерию резать? |
|