[VB.NET] - Função para ler arquivos binarios

[uillianluiz]

Eu tenho uma função para manipular arquivos binários, porém é em VB6..

As funções em VB6 são mais ou menos assim:

Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal _

nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Any) As Long

Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal _

nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As Any) As Long

A utilização é mais ou menos assim:

SetFilePointer hFile, &H4774D, 0, 0

WriteFile hFile, ByVal Text1.Text, Len(Text1.Text), ret, ByVal 0&

Alguém sabe como fazer isso em VB.net?

Valeu =)

Editado Dezembro 29, 2010 por uillianluiz

[uillianluiz]

Consegui algo, porém só consigo ler 1 Byte por vez, o que não é muito útil, teria de ler 4 Bytes por vez.

Para ler 1 Byte fiz assim:

Dim fs As New FileStream("C:\b.dat", FileMode.Open)
fs.Position = &H130
Textbox1.Text = fs.ReadByte

Tem a função FileStream.Read mas nem sei como usar..