إضافة سطر في ملف نص

أنا راح ابعتلك كتاب اخي باسم بيساعدك في برنامجك

بيخص كل الاكواد اللي بتخص شغل الملفات

ولو عندي وقت راح اشو برنامجك انا نزلته بس لسه مافتحته

بشوف شو مشكلتك وبخبرك

بس مشان عندي مشكله هون بالمنتدى مارضي يضيف الكتاب

تحياتي

أخي السائل: لقد قمت ببعض التعديلات على الكود الذي أرفقته بالسؤال، أرجو أن تفي بالغرض

Public Function readLine(ByRef strFilePath As String, ByRef nLine _
	As Integer) As String
	Dim FileNum As Integer
	Dim str() As String
	FileNum = FreeFile
	Open strFilePath For Input As FileNum
	str = Split(Input$(LOF(FileNum), FileNum), vbCrLf)
	readLine = str(nLine)
Close
End Function

Private Sub Command1_Click()
	Text1.Text = readLine("test.txt", 4)
End Sub

Private Sub Command2_Click()
	WriteLine "test.txt", 4
End Sub

Public Sub WriteLine(ByRef strFilePath As String, ByRef nLine _
	As Integer)
	Dim FileNum As Integer
	Dim str() As String
	FileNum = FreeFile
	Open strFilePath For Input As FileNum
	str = Split(Input$(LOF(FileNum), FileNum), vbCrLf)
	Close
	str(nLine) = Text1
	FileNum = FreeFile
	Open strFilePath For Output As FileNum
	Write #FileNum, Join(str, vbCrLf)  'str = Split(Input$(LOF(FileNum), FileNum), vbCrLf)
	Close
End Sub

أشكركم جزيل الشكر على مشاركانكم وإهتمامكم في نشر العلم والفائدة للجميع

أقول لكم

جزاك الله خيراً وزاد علمكم علماً

أخوكم