Mega Code Archive

 

Categories / VB.Net / File Directory

 

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