Array
(
)

Array Bytes

Fms-marques
   - 08 set 2008

Preciso gerar uma array de byte de um arquivo de texto ou imagem, me passaram o seguinte exemplo em VB.NET, gostaria de saber se alguem poderia me explicar a função abaixo, pois ainda tenho que passa-la para Visual FoxPro.

Private Function ByteArrayArquivo(ByVal caminho As String) As Byte()
Dim sr As New StreamReader(caminho)
Dim st As Stream = sr.BaseStream
Dim br As New BinaryReader(st)
Dim arrBytes() As Byte = br.ReadBytes(st.Length + 1)
br.Close()
st.Close()
Return arrBytes
End Function

Obrigado.