Batya
|
Posted: Thu Aug 31, 2006 14:06 Post subject: |
|
|
Zorroz wrote: | Скрипт не работает. Копируются только файл, папки не копируются. |
А у тебя текущий каталог ("Путь запуска") для кнопки (команды) пустой?
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.MoveFile Rln, WScript.Arguments(1)
Fld = FSO.GetBaseName(Rln) & "_files"
If FSO.FolderExists(Fld) Then
FSO.MoveFolder Fld, WScript.Arguments(1)
End If
ElseIf FSO.FolderExists(Rln) Then
FSO.MoveFolder Rln, WScript.Arguments(1)
End If
Loop
Set OTF = Nothing
Set FSO = Nothing
WScript.Quit |
_________________ Нет, я не сплю. Я просто медленно моргаю. |
|