Страница 3 из 3
Добавлено: Ср окт 20, 2010 05:53
KarS
Увеличение паузы к желаемому эффекту не приводит. Только какое-то окошечко, которое я посмотреть не успеваю, появляется позже после нажатия кнопки (те же 5 сек - время паузы). Может дело в нём. Что это за окно?
В отношении копирования вместо перемещения - это моя ошибка, прошу прощения (на кнопке не поменял путь к файлу скрипта перемещения).
Добавлено: Ср окт 20, 2010 09:58
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
Добавлено: Ср окт 20, 2010 14:56
Lev
[off]Запонимаем[/off]
Добавлено: Ср окт 20, 2010 14:59
Batya
Lev писал(а):[off]Запонимаем[/off]
Спасибо.
Добавлено: Чт окт 21, 2010 18:07
KarS
Получилось!
Теперь всё работает: и копирование, и перемещение!
Вот только окошечко после нажатия на кнопку всё равно появляется. Разглядеть его не успеваю. Но глаза мусолит.
Прошу прощения за бред.
Но может в нём отражается постановка в очередь на копирование?
Не зависимо от объёма копируемого файла, окно исчезает сразу после появления, а потом в фоне происходит копирование с отображением другого, фонового окна.
Добавлено: Чт окт 21, 2010 19:17
Batya
KarS писал(а):Но может в нём отражается постановка в очередь на копирование?
Именно так.
Но, думаю, это не смертельно
