Как записать в один фаил другие

[den-natrov]

Мне надо сохранить несколько файлов в одном (неизвестно конкретно число файлов). Как добавить сюда еще неизвестное количество файлов. Помогите, пожалуйста, очень надо.


Dim s As String
Dim s1 As String


FileOpen(1, "C:\Protsent\Скоростное _ мышление\Protsent\Protsent0.pbis", OpenMode.Input)
FileOpen(2, "C:\Protsent\Скоростное _ мышление\Protsent\Protsent1.pbis", OpenMode.Input)




FileOpen(3, "C:\Protsent\Скоростное мышление\Процент.txt",_ OpenMode.Output)




While Not EOF(1)
Input(1, s)
Input(2, s1)
PrintLine(3, s, s1)

End While
FileClose(1)
FileClose(2)
FileClose(3)
Содержимое файлов

15.08.2005
Красная ;Зеленая
100 ;0

Выстраивать надо

15.08.2005 ;;15.08.2005
Красная ;Зеленая ;Красная ;Зеленая
100 ;0 ;100 ;0


Помогите пожалуйста.

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




[Amed]

Ох.
Начнём с начала.

Какие файлы нужно сохранить и в какой?