Форум Команды NeTTeam

Открытие и считывание .txt файла. пользователь сам выбирает фаил

op.ShowOpen()
If Not op.FileName = "" Then
    Using myFileStream As New FileStream(op.FileName, FileMode.Open)
        Dim myStreamReader As New StreamReader(myFileStream, Encoding.Default)
        Dim content As String
        content = myStreamReader.ReadToEnd() ' вот содержимое
        myStreamReader.Close()
    End Using
End If

op = Компонент OpenDialog

Запись в фаил

Dim content As String = "Содержимое для записи в файл"
  saveDlg.ShowDialog()
  If Not saveDlg.FileName = "" Then
        Using myFileStream As New IO.FileStream(saveDlg.FileName, IO.FileMode.Create)
            Dim myStreamWriter As New StreamWriter(myFileStream)
            myStreamWriter.Write(content)
            myStreamWriter.Close()
        End Using
    End If

saveDlg - компонент SaveDialog

myStreamReader.Read(n)

Dim sr As New System.IO.StreamReader("c:\test.txt", True)
Me.Label1.Text = sr.ReadToEnd
sr.Close()

Dim sw As New System.IO.StreamWriter("c:\test.txt", True)
sw.WriteLine("привет врагам")
sw.Close()