Imports System.IO
Public Class Tester
Public Shared Sub Main
Dim f As System.IO.FileStream
Dim r As System.IO.StreamReader
Dim mylength As Integer
Dim i As Integer
Dim mybuffer(100) As Char
f = New System.IO.FileStream("test.txt", IO.FileMode.Open, IO.FileAccess.Read)
r = New System.IO.StreamReader(f)
r.Read(mybuffer, 0, 100)
Console.WriteLine(mybuffer)
f.Close()
r.Close()
End Sub
End Class
|