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: Cделать открытие ярлыка на рабочую группу в панели TCMD 
Author Message
mar1boro



PostPosted: Fri Jun 25, 2010 13:53    Post subject: Reply with quote

Code:
'Открыть рабочую группу
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.LockTC True
TCS.SendCommand "cm_FocusCmdLine"
TCS.SendKeystroke "^+1"
TCS.SendKeystroke "cd " & "d:\1.txt"
TCS.Pause = 200
TCS.SendKeystroke "{ENTER 2}"
Set TCS = Nothing
Wscript.Quit


Здесь нет ошибок? после последней строки должна быть еще пустая или нет? я как-то доигрался, что теперь скрипт входит в цикл и прервать его можно только выходом из tcmd. Иногда, если цикл не происходит, на панели открывается D:\documents хотя в скрипте этого пути нет нигде.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group