Gibt das Bytearray einer Datei zurück

1
2
3
4
5
6
7
8

    Public Function GetBytesFromFile(ByVal FileName As String) As Byte()
        Dim fs As FileStream = New FileStream(FileName, FileMode.Open)
        Dim reader As BinaryReader = New BinaryReader(fs)
        Dim Data As Byte() = reader.ReadBytes(DirectCast(fs.Length, Long))
        reader.Close()
        fs.Close()
        Return Data
    End Function