Tol!k

|
Posted: Fri Apr 16, 2010 21:56 Post subject: |
|
|
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
|
Любой аргумент = новая вкладка, без аргументов = в текущей |
|