Batya
|
 Posted: Thu Aug 31, 2006 11:53 Post subject: |
 |
|
| Zorroz wrote: | | Такое возможно сделать с помощью скрипта? |
Легко:
| Code: | '==========================================================================
' Копирование выделенных файлов с соответствующими им (для *.html) папками
'
' Параметры вызова из TC:
' %L "%T"
'==========================================================================
Dim FSO, Fld, OTF, Rln
Set FSO = CreateObject("Scripting.FileSystemObject")
Set OTF = FSO.OpenTextFile(WScript.Arguments(0), 1)
Do While Not OTF.AtEndOfStream
Rln = OTF.ReadLine
If FSO.FileExists(Rln) Then
FSO.CopyFile Rln, WScript.Arguments(1)
Fld = FSO.GetBaseName(Rln) & "_files"
If FSO.FolderExists(Fld) Then
FSO.CopyFolder Fld, WScript.Arguments(1)
End If
ElseIf FSO.FolderExists(Rln) Then
FSO.CopyFolder Rln, WScript.Arguments(1)
End If
Loop
Set OTF = Nothing
Set FSO = Nothing
WScript.Quit |
Но это можно сделать и с помощью TC. Для этого надо установить способ копирования проводником.
Кстати, может по этому поводу кто-нибудь запостит реквест Гислеру - сделать отдельную команду (типа cm_Copy) для копирования проводником (чтобы не переключать при необходимости режимы копирования)?
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
