#1: Поиск файлов через VBS - как исправить ошибку? Author: kadvlad, Posted: Wed Nov 05, 2008 02:46 — Друзья,
подскажите, пожалуйста, как правильно написать скрипт
для поиска имён файлов из буфера обмена в заранее известных каталогах.
Мой вариант добавляет в начало пути поиска лишний пробел (перед D:\Documents..) и вызывает ошибку "Указанного пути не существует!"
Code:
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.Pause=200
TCS.LockTC True
TCS.SendCommand(501)
TCS.SendKeystroke (TCS.GetTextFromClip)
TCS.Pause=100
TCS.LockTC True
TCS.SendKeystroke ("{TAB} ")
TCS.Pause=100
TCS.LockTC True
TCS.SendKeystroke ("D:\Documents;E:\Documents;F:\Documents")
TCS.SendKeystroke ("{Enter}")
TCS.LockTC False
Set TCS=Nothing
Wscript.Quit
Как указать Тоталу, что вставляется обычный текст?
Спасибо.
#2: Author: Volniy, Location: МестныйPosted: Wed Nov 05, 2008 11:25 — Просто убери пробел после {TAB} в
Code:
TCS.SendKeystroke ("{TAB} ")
А еще у тебя явный перебор с LockTC и Pause=. LockTC True действует до следующего за ним LockTC False. А Pause= вообще действует до следующего вызова этого свойства с другим значением. Не нужно путать свойствоPause с методомSleep.
#3: Author: kadvlad, Posted: Wed Nov 05, 2008 11:33 — Упс. Не заметил пробела. И спасибо за разъяснение!
