Dim File1 as String
File1 = "C:\altes_dokument.rtf" ' Pfad zur Rtf-Datei, an die ein neuer Teil 
' angehängt werden soll
 
Rtb2.TextRTF = txt_ReadAll(file1)
Rtb2.SelStart = Len(Rtb2.Text)
Rtb1.SelStart = 0
Rtb1.SelLength = Len(Rtb1.Text)
Rtb2.SelRTF = Rtb1.SelRTF
 
Dim File2 as String ' Der Pfad zur neuen Rtf-Datei, die aus den beiden 
' zusammengesetzten Stücken besteht
File2 = "C:\neues_dokument.rtf"
 
txt_WriteAll file2, Rtb2.TextRTF

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co