Dim InputStream1 As InputStream
InputStream1 = File.OpenInput(File.DirDefaultExternal,"edit.zip")
Dim OutputStream1 As OutputStream
OutputStream1.InitializeToBytesArray(1000)
File.Copy2(InputStream1, OutputStream1)
'declares an empty array
OutputStream1.ToBytesArray
Buffer = OutputStream1.ToBytesArray