Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Поиск файлов через VBS - как исправить ошибку? 
Author Message
kadvlad



PostPosted: Wed Nov 05, 2008 02:46    Post subject: Поиск файлов через VBS - как исправить ошибку? Reply with quote

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

Мой вариант добавляет в начало пути поиска лишний пробел (перед 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


Как указать Тоталу, что вставляется обычный текст?
Спасибо.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group