اظهار محتوى ملف تكست ..

لقراءة الملف النصي .. يمكن استخدام الطريقة التسلسلية..

بعد اضافة زر أمر CommandButton و مربع نصي TextBox مع ضبط الخاصية Multiline للأخير إلى True ... اضف الكود التالي لفتح الملف Text.txt الموجود على الدليل الجذري..

 Open "c:Test.txt" For Input As #1
  Text1 = Input(LOF(1), 1)
 Close #1

وللحصول على الملف الموجود بالمسار الحالي استخدم الخاصية path التابعة للكائن App

فمثلا نستطيع تعديل الكود السابق ليقوم بقراءة الملف Test.txt الموجود على نفس مجلد البرنامج..

Path = IIf(Right(App.Path, 1) = "", App.Path, App.Path & "")
Open Path & "Test.txt" For Input As #1
 Text1 = Input(LOF(1), 1)
Close #1

تسلم اخوي على الكود ..

الله يعطيك العافيه ..

قول آمين ..

في امان الله