Как переместить в папку, назначенную по умолчанию

[KarS]

Увеличение паузы к желаемому эффекту не приводит. Только какое-то окошечко, которое я посмотреть не успеваю, появляется позже после нажатия кнопки (те же 5 сек - время паузы). Может дело в нём. Что это за окно?

В отношении копирования вместо перемещения - это моя ошибка, прошу прощения (на кнопке не поменял путь к файлу скрипта перемещения).

[Batya]

KarS
Бред какой-то.

Переделал установку пути противоположной панели через метод SetTrgPath Script Helper-а. Попробуй такой вариант скрипта:

Код: Выделить всё

'=============================================================================
' Перемещение текущего файла (или выделенных файлов)
'   с помощью TC в указанную папку.
' В скрипте используется WSH Helper for TC by Volniy

' Должен быть 1 входной параметр - целевая папка (куда перемещать)
' Пример:
'   C:\MyDir\
'=============================================================================
Option Explicit
Dim Title, TargetDir, SaveDir
Title = "Перемещение с помощью TC"
' Проверяем число параметров
If WScript.Arguments.Count < 1 Then
  MsgBox "Неправильно заданы параметры!", vbOKOnly + vbCritical, Title
  WScript.Quit
End If

TargetDir = WScript.Arguments(0)

If Not CreateObject("Scripting.FileSystemObject").FolderExists(TargetDir) Then
  MsgBox "Неправильно задана целевая папка!", vbOKOnly + vbCritical, Title
  WScript.Quit
End If

With CreateObject("TCScript.Helper")
  ' Запоминаем текущую папку противоположной панели
  SaveDir = .GetTrgPath

  ' Открываем в противоположной панели TC целевую папку
  .SetTrgPath(TargetDir)

  ' Ставим в очередь на перемещение
  .SendCommand   "cm_MoveOnly"
  .SendKeystroke "{F2}"

  ' Открываем в противоположной панели TC прежнюю папку
  .SetTrgPath(SaveDir)
End With

WScript.Quit

[Lev]

[off]Запонимаем[/off]

[Batya]

[off]Запонимаем[/off]

Спасибо.

[KarS]

Получилось!
Теперь всё работает: и копирование, и перемещение!

Вот только окошечко после нажатия на кнопку всё равно появляется. Разглядеть его не успеваю. Но глаза мусолит.
Прошу прощения за бред. Но может в нём отражается постановка в очередь на копирование?
Не зависимо от объёма копируемого файла, окно исчезает сразу после появления, а потом в фоне происходит копирование с отображением другого, фонового окна.

[Batya]

Но может в нём отражается постановка в очередь на копирование?

Именно так.
Но, думаю, это не смертельно