كيف انسخ محتوى تكست بوكس الى ملف تكست

السلام عليكم ورحمة الله وبركاته



ارجو المساعدة للضرورة القصوى

فكل ما اريده هو ان اتمكن من نقل محتوى تكست بوكس في فيجوال بيسك 6 الى ملف تكتست عادي موجود في الجهاز لكن في كل مرة يتم اضافة محتوى التكست بوكس في فيجوال الى ملف التكست وليس الكتابة عليه ومسح القديم

انا استخدمت هذا الكود لكنه في كل مرة يمسح القديم وينسخ فيه محتوى التكست الجديد وهذا مالا اريده


Private Sub Command2_Click()

Dim ff As Integer
ff = FreeFile
Open "C:\" & txt1.Text & ".txt" For Output As #ff
Print #ff, Text2.Text
Close #ff

End Sub

ارجو المساعدة وشكرا مقدما للجميع

تفضل :

كود:

---


Open "c:\1.txt" For Append As #1
Print #1, Text1.Text
Close #1

---