1 | Imports System.IO
|
1 2 3 4 5 6 | Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim FileReader As StreamReader FileReader = New StreamReader("C:\test.txt") TextBox1.Text = FileReader.ReadToEnd() FileReader.Close() End Sub |
1 2 3 4 5 6 | Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim FileWriter As StreamWriter FileWriter = New StreamWriter("C:\test.txt", False) FileWriter.Write(TextBox1.Text) FileWriter.Close() End Sub |
沒有留言:
張貼留言