| View previous topic :: View next topic |
| Author |
Message |
KarS
Joined: 21 Apr 2006
Posts: 102
Location: г. Абакан
|
 (Separately) Posted: Wed Oct 20, 2010 05:53 Post subject: |
 |
|
Увеличение паузы к желаемому эффекту не приводит. Только какое-то окошечко, которое я посмотреть не успеваю, появляется позже после нажатия кнопки (те же 5 сек - время паузы). Может дело в нём. Что это за окно?
В отношении копирования вместо перемещения - это моя ошибка, прошу прощения (на кнопке не поменял путь к файлу скрипта перемещения). |
|
| Back to top |
|
 |
Batya
Joined: 15 Dec 2004
Posts: 2229
Location: Москва, Россия
|
| (Separately) Posted: Wed Oct 20, 2010 09:58 Post subject: |
|
|
KarS
Бред какой-то.
Переделал установку пути противоположной панели через метод SetTrgPath Script Helper-а. Попробуй такой вариант скрипта:
| Code: | '=============================================================================
' Перемещение текущего файла (или выделенных файлов)
' с помощью 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
|
_________________
Нет, я не сплю. Я просто медленно моргаю.
Last edited by Batya on Wed Oct 20, 2010 15:00; edited 1 time in total |
|
| Back to top |
|
|
Lev
Joined: 02 Mar 2005
Posts: 392
|
| (Separately) Posted: Wed Oct 20, 2010 14:56 Post subject: |
|
|
| [off]Запонимаем[/off] |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2229
Location: Москва, Россия
|
| (Separately) Posted: Wed Oct 20, 2010 14:59 Post subject: |
|
|
| Lev wrote: | | [off]Запонимаем[/off] |
 Спасибо.
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
| Back to top |
|
|
KarS
Joined: 21 Apr 2006
Posts: 102
Location: г. Абакан
|
| (Separately) Posted: Thu Oct 21, 2010 18:07 Post subject: |
|
|
Получилось! 
Теперь всё работает: и копирование, и перемещение!
Вот только окошечко после нажатия на кнопку всё равно появляется. Разглядеть его не успеваю. Но глаза мусолит.
Прошу прощения за бред.  Но может в нём отражается постановка в очередь на копирование?
Не зависимо от объёма копируемого файла, окно исчезает сразу после появления, а потом в фоне происходит копирование с отображением другого, фонового окна. |
|
| Back to top |
|
|
Batya
Joined: 15 Dec 2004
Posts: 2229
Location: Москва, Россия
|
| (Separately) Posted: Thu Oct 21, 2010 19:17 Post subject: |
|
|
| KarS wrote: | | Но может в нём отражается постановка в очередь на копирование? |
Именно так.
Но, думаю, это не смертельно 
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
