Mega Code Archive

 

Categories / VB.Net / File Directory

 

Reads a maximum of count characters from the current stream into buffer

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                 Dim c(5) As Char                 sr.Read(c, 0, c.Length)                 Console.WriteLine(c)             Loop             sr.Close()         Catch e As Exception             Console.WriteLine("The process failed: {0}", e.ToString())         End Try     End Sub End Class