20-03-13, 10:54 PM
[HTML] Try
Dim objReader As New System.IO.StreamReader(My.Application.Info.DirectoryPath & "\اسم الملف النصى")
Dim g As String = objReader.ReadToEnd
g = Replace(g, vbCrLf, "#")
Dim rt() As String = g.Split("#")
For i As Integer = 0 To rt.Length - 1
ComboBox1.Items.Add(rt(i))
Next
Catch ex As Exception
MsgBox("الملف غير موجود")
End Try[/HTML]
Dim objReader As New System.IO.StreamReader(My.Application.Info.DirectoryPath & "\اسم الملف النصى")
Dim g As String = objReader.ReadToEnd
g = Replace(g, vbCrLf, "#")
Dim rt() As String = g.Split("#")
For i As Integer = 0 To rt.Length - 1
ComboBox1.Items.Add(rt(i))
Next
Catch ex As Exception
MsgBox("الملف غير موجود")
End Try[/HTML]