Mega Code Archive

 

Categories / VB.Net Tutorial / Stream File

 

Read a file by using SeekOrigin

Imports System.IO Imports System.Text          Public Class Tester     Public Shared Sub Main              Dim myFileStream As FileStream         Dim bteWrite() As Byte         Dim intByte As Integer         Dim lngLoop As Long                 Try             intByte = Encoding.ASCII.GetBytes("asdf").Length             ReDim bteWrite(intByte)             bteWrite = Encoding.ASCII.GetBytes("asdf")             myFileStream = File.OpenWrite("test.txt")             Dim myOrigin As SeekOrigin             Dim lngPosition As Long                  lngPosition = 123             myOrigin = SeekOrigin.Begin '           myOrigin = SeekOrigin.Current '           myOrigin = SeekOrigin.End             myFileStream.Seek(lngPosition, myOrigin)             For lngLoop = 0 To intByte - 1                 myFileStream.Seek(1, SeekOrigin.Current)                 myFileStream.WriteByte(bteWrite(lngLoop))             Next             myFileStream.Close()         Catch ex As IOException             Console.WriteLine(ex.Message)         End Try     End Sub End Class