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..

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 =)