Read and Write Files
Public Class MainClass Public Shared Function ReadTextFromFile(ByVal Filename As String) As String Dim strFileText As String Dim MyReader As System.IO.StreamReader = System.IO.File.OpenText(Filename) strFileText = MyReader.ReadToEnd MyReader.Close() Return strFileText End Function Public Shared Sub WriteTextToFile(ByVal Filename As String, ByVal Text As String) Dim MyWriter As System.IO.StreamWriter = System.IO.File.CreateText(Filename) MyWriter.Write(Text) MyWriter.Close() End Sub Public Shared Sub Main WriteTextToFile("c:\b.txt", ReadTextFromFile("c:\a.txt")) End Sub End Class