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: Переход в каталог а-ля Opera 
Author Message
Tol!k



PostPosted: Fri Apr 16, 2010 21:56    Post subject: Reply with quote

Code:
Option Explicit
Dim TCS
Set TCS = CreateObject("TCScript.Helper")

If WScript.Arguments.Count <> 0 Then
  TCS.SendCommand "cm_OpenNewTab", False
End If

TCS.SendCommand "cm_FocusCmdLine", False
TCS.SendKeystroke "cd " & TCS.GetTextFromClip
TCS.SendKeystroke "{ENTER}"

Set TCS = Nothing
Wscript.Quit

Любой аргумент = новая вкладка, без аргументов = в текущей
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group