파일 읽기쓰기 삽질의 종결자

Public Class fileoperation

Public operated As System.IO.FileStream

Sub New(ByVal filepath As String)

operated = New System.IO.FileStream(filepath, IO.FileMode.OpenOrCreate, IO.FileAccess.ReadWrite)

End Sub

Function read()

Dim o As New System.IO.StreamReader(operated)

Dim ss = o.ReadLine

operated.Seek(0, IO.SeekOrigin.Begin)

Return ss

End Function

Sub write(ByVal s As String)

Dim o As New System.IO.StreamWriter(operated)

o.Write(s)

o.Flush()

operated.Seek(0, IO.SeekOrigin.Begin)

End Sub

End Class