Total Commander

Код: Выделить всё

'================================================================
' Создать список из выбранных файлов по шаблону:
' <текст сверху> + <имя файла (размер)> + <текст снизу>
' Параметры: %WL "<путь получателя>" "<базовое имя нового файла>"
'================================================================
With WScript.Arguments
  C = .Count : If C = 0 Then WScript.Quit
  If C <> 3 Then MsgBox "Следует указать 2 параметра!", 48,_
  Space(12) & "Ошибка вводных данных" : WScript.Quit : End If
  List = .Item(0) : Path = .Item(1) : Name = .Item(2)
End With : NL = vbNewLine : Set Shell = CreateObject("Shell.Application")
With CreateObject("Scripting.FileSystemObject")
  Path = .BuildPath(Path, "\") : Set List = .OpenTextFile(List,,,-1)
  Do : F = List.ReadLine : FN = .GetFileName(F)
    Set Fd = Shell.NameSpace(.GetParentFolderName(F))
    S = S & NL & FN & " (" & Fd.GetDetailsOf(Fd.ParseName(FN), 1) & "),"
  Loop Until List.AtEndOfStream : NP = Name & ".txt" : i = 0
  While (.FileExists(Path & NP) OR .FolderExists(Path & NP))
  i = i + 1 : NP = Name & " (" & i & ").txt" : Wend
  .OpenTextFile(Path & NP, 2, True, -1).Write _
  "постоянная cтрока 1" & NL &_
  "постоянная строка 2" & NL &_
  Mid(S, 3, Len(S) - 3) & NL &_
  "постоянная строка 3" & NL &_
  "постоянная строка 4" & NL & NL &_
  "постоянная строка 5" & NL & NL &_
  "постоянная строка 6"
End With
With CreateObject("WScript.Shell")
  If Path <> Fd.Self.Path & "\" Then .SendKeys "{TAB}"
  .Exec """%COMMANDER_EXE%"" /S /O /L=""" & Path & NP & "\:"""
End With