10-06-13, 01:03 AM
السلام عليكم
اخ 3ssam
ارجو ان يكون هذا هو طلبك
علما بان البرنامج يعمل على الحفظ وليس اضافة الى الملف
وان txtFile اسم صندوق النص تستطيع استبدالها باسم اداة النص التي عندك
وان FileName يجب ان تضع فيه اسم الملف كامل مع الامتداد txt
^_*
اخ 3ssam
ارجو ان يكون هذا هو طلبك
إقتباس :Userfile = FileName------------------------
Open Userfile For Input As #1
txtFile.Text = Input(LOF(1), 1)
txtFile.Refresh
Close #1
علما بان البرنامج يعمل على الحفظ وليس اضافة الى الملف
وان txtFile اسم صندوق النص تستطيع استبدالها باسم اداة النص التي عندك
وان FileName يجب ان تضع فيه اسم الملف كامل مع الامتداد txt
^_*
