Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Script Request 
Author Message
Batya



PostPosted: Thu Aug 31, 2006 14:06    Post subject: Reply with quote

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

_________________
Нет, я не сплю. Я просто медленно моргаю.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group