|
Đoạn mã 1
Private Sub btnTaoMoi_Click(ByVal sender As
System.Object, _
ByVal e As System.EventArgs) Handles
btnTaoMoi.Click
Dim TenTapTin As String = "D:\TEST.TXT"
Dim FileStream_CuaToi As New FileStream(TenTapTin,
_
FileMode.OpenOrCreate, FileAccess.Read,
FileShare.ReadWrite)
' Lệnh Dim bên trên đã tạo xong tập tin
D:\TEST.TXT
FileStream_CuaToi.Close() ‘ Chỉ cần đóng lại là
xong
End Sub
Private Sub btnGhi_Click(ByVal sender As
System.Object, _
ByVal e As System.EventArgs) Handles btnGhi.Click
Dim TenTapTin As String = "D:\TEST.TXT"
Dim FileStream_CuaToi As New FileStream(TenTapTin,
_
FileMode.OpenOrCreate, FileAccess.Write,
FileShare.None)
' Tạo bộ đồ nghề để ghi cho file-stream vừa mở
bằng lệnh Dim
Dim BoDoNgheDeGhi As New
StreamWriter(FileStream_CuaToi)
' Ghi một dòng vào tập tin
BoDoNgheDeGhi.WriteLine("Đây là dòng mẫu để ghi
vào tập tin.")
' Đóng tập tin sau khi xài xong
BoDoNgheDeGhi.Close()
FileStream_CuaToi.Close()
End Sub
Private Sub btnDoc_Click(ByVal sender As
System.Object, _
ByVal e As System.EventArgs) Handles btnDoc.Click
Dim TenTapTin As String = "D:\TEST.TXT"
Dim FileStream_CuaToi As New FileStream(TenTapTin,
_
FileMode.OpenOrCreate, FileAccess.Read,
FileShare.Read)
' Tạo bộ đồ nghề để đọc cho file-stream vừa mở
bằng lệnh Dim
Dim BoDoNgheDeDoc As New
StreamReader(FileStream_CuaToi)
' Đọc toàn bộ tập tin, gán nội dung cho ô TextBox
txtNoiDung.Text = BoDoNgheDeDoc.ReadToEnd()
' Đóng tập tin sau khi xài xong
BoDoNgheDeDoc.Close()
FileStream_CuaToi.Close()
End Sub |
