Как открыть файл с помощью openfiledialog в vb.net?

Question

Как открыть файл с помощью OpenFileDialog

Ниже мой код:

Dim Fs As StreamReader 
    With OpenFD 
     .FileName = "" 
     .Title = "Open Text File" 
     .InitialDirectory = "c:\" 
     .Filter = "Text files|*.txt" 
     .ShowDialog() 
    End With 
    Dim path As String = OpenFD.FileName 
    txtin.Text = OpenFD.FileName 
    Fs = New StreamReader(path) 

Я могу получить путь к файлу. Но не удалось открыть файл. Может кто-нибудь помочь. Заранее спасибо

Answer 1

Попробуйте это. Он должен работать.

---

Dim sr As StreamReader 

'Supposing you haven't already set these properties... 
    With OFD 
     .FileName = "" 
     .Title = "Open a text file..." 
     .InitialDirectory = "C:\" 
     .Filter = "Text Files|*.txt" 
    End With 

    If OFD.ShowDialog() = DialogResult.OK Then 
     Try 
      sr = New StreamReader(OFD.Filename) 
      txtInFile.Text = OFD.Filename 
     Catch ex As Exception 
      MsgBox("The file specified could not be opened." & VbNewLine & "Error message:" & VbNewLine & VbNewLine & ex.Message, MsgBoxStyle.OK, "File Could Not Be Opened!") 
     End Try 
    End If

Answer 2

Если вы хотите прочитать весь текстовый файл, вы можете использовать System.IO.File.ReadAllLines. Вы можете сделать это так:

Dim readText() As String = System.IO.File.ReadAllLines(path) 

Файл будет получить хранится в вашем массив строк, и вы можете получить доступ к каждой строке по индексу.