Array Byte To FileStream (to blocks)

[Tony]

Hello,

I a byte array and i put to remote class (to blocks)

I read byte array from a file :
dim fs as FileStream = File.Open(filen ame, FileMode.Open);
dim data() as byte = new byte(fs.Length) {}
fs.Read(data, 0, data.Length)
fs.Close()

How write to blocks a array to File Stream?

I have Write this code byt not it works :

Dim i As Integer
Dim currentChunk As Integer=0
Dim buffsize As Integer = 4096
Dim fs As FileStream
Dim Data(buffsize) As Byte

fs = New FileStream("C:\ fileDestination ", FileMode.Create New)

Dim bw As BinaryWriter = New BinaryWriter(fs )

For i = 0 To arrayByte.Lengt h / buffsize
currentChunk = (i * buffsize)
If currentChunk + buffsize > arrayByte.Lengt h Then
buffsize = arrayByte.Lengt h - currentChunk
End If
buffer.BlockCop y(arrayByte, currentChunk, Data, 0, buffsize)
bw.Write(Data)
Next

bw.Close()

[Armin Zingler]

"Tony" <[e-mail]> schrieb

Hello,

I a byte array and i put to remote class (to blocks)

I read byte array from a file :
dim fs as FileStream = File.Open(filen ame, FileMode.Open);
dim data() as byte = new byte(fs.Length) {}
fs.Read(data, 0, data.Length)
fs.Close()
You are reading 0 bytes because data.length = 0.
How write to blocks a array to File Stream?

I have Write this code byt not it works :

Dim i As Integer
Dim currentChunk As Integer=0
Dim buffsize As Integer = 4096
Dim fs As FileStream
Dim Data(buffsize) As Byte

fs = New FileStream("C:\ fileDestination ", FileMode.Create New)

Dim bw As BinaryWriter = New BinaryWriter(fs )

For i = 0 To arrayByte.Lengt h / buffsize

You should enable Option Strict to make you aware of programming problems.

Armin