التعامل من المفكرة من خلال الفجول بيسك

[محمد]

التعامل من المفكرة من خلال الفجول بيسك للقيام بـ الكتابة والحفظ والحذف

الطريقة
قم بانشاء فورم عليه اربع ازرار بدون تغيير الاسماء الافتراضيه مع مربع نص


زر الكتابة في المفكرة

Private Sub Command1_Click()

APPPATH = App.Path & "TEST.TXT"
f = FreeFile
Open APPPATH For Output As #f
Print #f, Text1.Text
Close #f
End Sub



زر القراءة من المفكرة

Private Sub Command2_Click()
Dim M As String

f = FreeFile
Open App.Path & " est.txt" For Input As #f
Text1.Text = Input(LOF, f)
Close f
End Sub





مسح الكتابة المكتوبة في الملف

Private Sub Command3_Click()
APPPATH = App.Path & "TEST.TXT"

f = FreeFile
Open APPPATH For Output As #f
Print #f, ""
Close #f
End Sub




الكتابة في مربع النص ثم الحفظ في المفكرة

Private Sub Command4_Click()
Text1.Text = "موسوعة الرمال للكمبيوتر والأنترنت"

APPPATH = App.Path & "TEST.TXT"
f = FreeFile
Open APPPATH For Output As #f
Print #f, Text1.Text
Close #f
End Sub



ملاحظة :-

عادة سوف يتم انشاء الملف (TEST.TXT) في مجلد برنامج فجول بيسك على الـ(c/Program Files)