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