Total Commander Knowledge Base

Есть вопрос?

Поищите ответ в самой большой русскоязычной базе знаний по Total Commander!

Как собрать несколько файлов в один

Q: Как собрать несколько файлов в один?
A: Создай файлик *.vbs. Повесь его на кнопку. В параметрах пропиши %L. Код файла:

Dim FileAll, FSO, List, F, WriteFile
Const ForReading   = 1
Const ForWriting   = 2
Const ForAppending = 8

FileAll = InputBox("Введите имя файла", "Копирование содержимого", "all.txt")
if FileAll = "" then
  MsgBox "Не задано имя файла!", _
         vbOKOnly + vbExclamation, _
         "Копирование содержимого"
  WScript.Quit
End if

Set FSO = CreateObject("Scripting.FileSystemObject")
List = FSO.OpenTextFile(WScript.Arguments(0), ForReading).ReadAll
Set WriteFile = FSO.OpenTextFile(FileAll, ForAppending, True)

For Each F In Split(List, vbNewLine)
  If F <> "" Then
    WriteFile.Write FSO.OpenTextFile(F, ForReading).ReadAll
    WriteFile.Write vbNewLine
  End If
Next
WriteFile.Close

Set WriteFile = Nothing
Set FSO       = Nothing
WScript.Quit

Batya

A: Как вариант: переименовываем файлики по виду file01.ext file02.ext (легко делается мультиренеймом), ставим курсор на первый файл и лезем в меню Файл->Собрать. На выходе получаем искомый файл.

NakaRB