Tol!k

|
Posted: Fri Aug 13, 2010 13:16 Post subject: |
|
|
Volniy wrote: | Только это работать все равно не будет  | А чего ж не работает стандартная тоталовская команда?
DoctorIkari
Code: | 'Параметры: c:\фыв
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand "cm_OpenNewTabBg"
TCS.SendKeystroke "CD " & Replace(WScript.Arguments(0), """", "")
TCS.SendKeystroke "{ENTER}"
Set TCS = Nothing
WScript.Quit
| Так? |
|