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

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

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

Author

Message

Batya

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