[Ahmed_Mansoor]

(16-04-16, 12:03 PM)hak1wr كتب :

(09-03-13, 05:07 PM)ناجي إبراهيم كتب :

كود :

Private Function ReadLineOfFile(ByVal AFilePath As String, ByVal ALineIndex As Long) As String
   Dim FNum As Integer
   Dim Idx As Long
   Dim ALine As String
   Dim MsgTxt As String
   
   On Error GoTo ReadLineOfFile_Err
   
   ReadLineOfFile = ""
   If ALineIndex < 0 Then Err.Raise vbObjectError + 1001, "IO.ReadLineOfFile", "Negative line numbers not allowed"
   
   ALine = ""
   Idx = 0
   FNum = FreeFile
   Open AFilePath For Input As #FNum
   Do While Idx <= ALineIndex
       Line Input #FNum, ALine
       Idx = Idx + 1
   Loop
   Close #FNum
   ReadLineOfFile = ALine
   Exit Function
   
ReadLineOfFile_Err:
   Close #FNum
   MsgTxt = "حدث خطأ عند محاولة قراءة سطر من الملف." & vbCrLf & vbCrLf & "رسالة الخطأ:" & vbCrLf & Err.Description
   MsgBox MsgTxt, vbExclamation Or vbMsgBoxRight Or vbMsgBoxRtlReading
End Function

السلام عليكم 
اخي ناجي 
حين استخدم هذا الفكشن يظهر لي اخطاء وضحتها في الملف المرفق 
ارجو المساعدة وشكرا

أهلا أخي الكريم , هذا الكود هو للفيجول بيسك6 وأعتقد أنك تستخدم فيجول بيسك دوت نت , الكود يعمل بشكل صحيح على الفيجول بيسك6 .