Mega Code Archive

 

Categories / VB.Net / File Directory

 

StreamReader Read reads the next character from the input stream

Imports System Imports System.IO Imports System.Text Public Class Test     Public Shared Sub Main()         Dim path As String = "c:\temp\MyTest.txt"         Try             If File.Exists(path) Then                 File.Delete(path)             End If             Dim sw As StreamWriter = New StreamWriter(path)             sw.WriteLine("this is a test")             sw.WriteLine("this is a test")             sw.WriteLine("this is a test")             sw.WriteLine("this is a test")             sw.Close()             Dim sr As StreamReader = New StreamReader(path)             Do While sr.Peek() >= 0                 Console.Write(Convert.ToChar(sr.Read()))             Loop             sr.Close()         Catch e As Exception             Console.WriteLine("The process failed: {0}", e.ToString())         End Try     End Sub End Class