Вот sa написал строку, которую нужно поставить следом за TCS.SendCommand "cm_FocusCmdLine". В Punto можно прописать правило автозамены, либо пароль сохранить в таком виде.
'Открыть рабочую группу
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 хотя в скрипте этого пути нет нигде.
Проблема в том, что, если по тем или иным причинам переход к нужному файлу не состоялся (из-за раскладки, например), Enter всё равно сработает на файле (каталоге) под курсором. А уж, что за файл под ним окажется... Тут надо поаккуратней.
sa, вернул в строке D:\documents\hard.txt и все стало работать как нужно. Теперь снова делаю D:\hard.txt и на панели после выполнения открывается папка D:\documents но уже без запуска файла. Мистика
Может у меня TCWSHelp.exe неправильный? version beta11plus
