Поиск файлов через VBS - как исправить ошибку?

[kadvlad]

Друзья,
подскажите, пожалуйста, как правильно написать скрипт
для поиска имён файлов из буфера обмена в заранее известных каталогах.

Мой вариант добавляет в начало пути поиска лишний пробел (перед D:\Documents..) и вызывает ошибку "Указанного пути не существует!"

Код: Выделить всё

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

Как указать Тоталу, что вставляется обычный текст?
Спасибо.

[Volniy]

Просто убери пробел после {TAB} в

Код: Выделить всё

TCS.SendKeystroke ("{TAB} ")

А еще у тебя явный перебор с LockTC и Pause=. LockTC True действует до следующего за ним LockTC False. А Pause= вообще действует до следующего вызова этого свойства с другим значением. Не нужно путать свойство Pause с методом Sleep.

[kadvlad]

Упс. Не заметил пробела. И спасибо за разъяснение!