[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

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