tallennus juttu

Oletan että käytät VB2005:sta.
Tässä luku ja kirjoitus funktiot. Kerro jos tarvitset apua niiden käyttämisessä?

Public Function ReadFromFile(ByVal FilePath As String) As String
'Declare any variables
Dim myFileStream As New System.IO.FileStream(FilePath, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Read, System.IO.FileShare.ReadWrite)
'Create the StreamReader and associate the filestream with it
Dim myReader As New System.IO.StreamReader(myFileStream)
'Read the entire text, and set it to a string
Dim sFileContents As String = myReader.ReadToEnd()
'Close everything when you are finished
myReader.Close() : myFileStream.Close()
Return sFileContents
End Function

Public Sub WriteToFile(ByVal TextToWrite As String, ByVal FilePath As String)
'Ensure that the target does not exist.
System.IO.File.Delete(FilePath)
'Declare those variables!
Dim sFileName As String = FilePath
Dim myFileStream As New System.IO.FileStream(sFileName, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Write, System.IO.FileShare.ReadWrite)
'Create the stream writer
Dim myWriter As New System.IO.StreamWriter(myFileStream)
'Write in the text
myWriter.Write(TextToWrite)
'Flush before we close
myWriter.Flush()
'Close everything
myWriter.Close(): myFileStream.Close()
End Sub