Dim fs As New FileStream(filepath, FileMode.Open, FileAccess.Read) fs.Seek(-100, SeekOrigin.End) Dim bytearray(100) As Byte Dim numbytesread As Integer = fs.Read(bytearray, 0, 100) textbox1.text = System.Text.Encoding.ASCII.GetString(bytearray)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)