' RunSelectInNSCopy.vbs
'========================   Описание   =====================================
' Копирование ВЫДЕЛЕННЫХ "плохих" файлов ПО ОЧЕРЕДИ программой NSCopy.exe
'========================  Параметры =====================================
' {Cписок файлов} {путь\куда\копировать}
' Пример: %L %t
'
' Автор:             Аверин Андрей
' Версия:          1.2 (21.09.2010 - 08.11.2011)
' Mail:                 Averin-And@yandex.ru
' Site:                  http://tc-image.3dn.ru

Option Explicit
'====================   Изменяемые пути   ==================================
Program = "%COMMANDER_PATH%\Plugins\wfx\BadCopy\NSCopy\NSCopy.exe"
'========================================================================
If WScript.Arguments.Count < 2 Then
   MsgBox "Не хватает параметров!" & vbNewLine &_
   "Должно быть минимум ДВА параметра %L %t",_
   vbOKOnly & vbInformation, "Копирование выделенных ''плохих'' файлов"
   WScript.Quit
End If

Dim FSO, WSH, ListFile, Program, Param, TPath
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")

Program = GetPath(Program)
If Not FSO.FileExists(Program) Then
   MsgBox "Не правильно указан путь до NSCopy.exe" & vbNewLine &_
   "скачать http://dmitrys.nm.ru/programs/nscopy/", vbOKOnly & vbInformation,_
   "Копирование выделенных ''плохих'' файлов"
   WsEnd
End If

TPath = WScript.Arguments(1)
Set ListFile = FSO.OpenTextFile(GetPath(WScript.Arguments(0)), 1)

Do While Not ListFile.AtEndOfStream
   Param = ListFile.ReadLine
  WSH.Run Chr(34) & Program & Chr(34) & Chr(32) & Chr(34) & Param & Chr(34) &_
  Chr(32) & Chr(34) & TPath & FSO.GetFileName(Param) & Chr(34) & " /e" ,2,True
Loop

ListFile.Close : Set ListFile = Nothing : WsEnd
Function GetPath(pPath) : GetPath = WSH.ExpandEnvironmentStrings(pPath) : End Function
Sub WsEnd : Set FSO = Nothing : Set WSH = Nothing : WScript.Quit : End Sub