Batya
|
Posted: Fri Dec 14, 2007 12:23 Post subject: |
|
|
NewMaestro
Поскольку всё-таки непонятно, для каких файлов выполнять операцию, приведенный vbs-скрипт работает для выделенных файлов:
Code: | '=============================================================================
' Копирование текущего файла (или выделенных файлов)
' с помощью TC в указанную папку.
' В скрипте используется WSH Helper for TC by Volniy
' Должен быть 1 входной параметр - целевая папка (куда копировать)
' Пример:
' C:\MyDir\
'=============================================================================
Option Explicit
' Проверяем число параметров
Dim Title
Title = "Копирование с помощью TC"
If WScript.Arguments.Count < 1 Then
MsgBox "Неправильно заданы параметры!", _
vbOKOnly + vbCritical, _
Title
WScript.Quit
End If
Dim FSO, TargetDir
Set FSO = CreateObject("Scripting.FileSystemObject")
TargetDir = WScript.Arguments(0)
If Not FSO.FolderExists(TargetDir) Then
MsgBox "Неправильно задана целевая папка!", _
vbOKOnly + vbCritical, _
Title
Set FSO = Nothing
WScript.Quit
End If
Dim TCS, WSH, TC, SaveDir
Set TCS = CreateObject("TCScript.Helper")
Set WSH = CreateObject("WScript.Shell")
TC = TCS.TCPath & "\TOTALCMD.EXE"
SaveDir = TCS.GetTrgPath
' Открываем в противоположной папке TC целевую папку
WSH.Run TC & " /o /s /r=""" & TargetDir & """", 7, True
' Небольшая пауза
WScript.Sleep 100
' Ставим в очередь на копирование
TCS.SendCommand "cm_Copy"
TCS.SendKeystroke "{F2}"
' Небольшая пауза
WScript.Sleep 100
' Открываем в противоположной папке TC прежнюю папку
WSH.Run TC & " /o /s /r=""" & SaveDir & """", 7, True
Set FSO = Nothing
Set TCS = Nothing
Set WSH = Nothing
WScript.Quit |
_________________ Нет, я не сплю. Я просто медленно моргаю. |
|