ответ

3

Попробуйте это:

Private Sub FillComboFromFile(ByVal path As String) 
    Try 
    If IO.File.Exists(path) Then 
     Using sr As New IO.StreamReader(path) 
     While Not sr.EndOfStream 
      ComboBox1.Items.Add(sr.ReadLine) 
     End While 
     End Using 
    Else 
     MsgBox("Oooops, File not found !!!") 
    End If 
    Catch ex As Exception 
    MsgBox(ex.Message) 
    End Try 
End Sub 
0

Или это:

ComboBox1.Items.AddRange(IO.File.ReadAllLines(path)) 
Смежные вопросы