Batya

|
Posted: Thu Dec 01, 2005 18:47 Post subject: |
|
|
bobius
Quote: | Я уже объяснял: изначально мы находимся в правой панели - это содержимое архива; первый таб переводит нас в левую панель; если после этого запустить копирование (по команде Copy), то ТС запустит диалог "Добавление в архив" - он думает, что мы собираемся копировать файл в архив. Поэтому я сначала делаю так, чтобы правая панель содержала обычный каталог. |
Этот способ называется "через одно место".
Только не обижайся. Просто ты выбрал действительно, мягко говоря, "не самый простой путь".
Во-первых, можно копировать средствами Windows. Во-вторых, можно воспользоваться сторонними программами (например, killcopy - рекомендую). Ну и наконец, очень просто обойтись средствами TC - надо послать не команду "Копировать" (ты, вероятно, просто генеришь нажатие F5), а послать команду "Копировать в текущий каталог" (Shift+F5). При этом никто тебе не запрещает сюда вставить путь (ограничение - каталог назначения уже должен существовать). И чтобы не мучиться с фоном, в wincmd.ini в секции [Configuration] укажи AlwaysCopyInBackground=1.
Примерный код:
Code: | Option Explicit
Dim MyDir
'=== Каталог для распаковки: ===
MyDir = "C:\Interesting"
'===============================
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.LockTC True
TCS.SendKeystroke ("{Tab}")
TCS.SendCommand ("cm_CopySamepanel")
TCS.SendKeystroke ("{HOME}" & MyDir & "\{Enter}")
TCS.SendCommand ("cm_FocusRight")
TCS.LockTC False
Set TCS=Nothing
Wscript.Quit |
|
|