Zunächst einmal, vielen Dank für die schnelle Antwort!!
Ich habe nun folgenden Code programmiert:
Dim Tabelle As DataTable = New DataTable()
Dim Datei As DataColumn = New DataColumn()
Datei.DataType = System.Type.GetType(„System.Byte“)
Datei.ColumnName = „Datei“
Tabelle.Columns.Add(Datei)
Dim Stream As FileStream
Dim bytes() As Byte = Nothing
Stream = New FileStream(„Pfad“, FileMode.Open)
ReDim bytes(Stream.Length)
Dim row As DataRow = Tabelle.NewRow()
row.Item(0) = Stream.Read(bytes, 0, Stream.Length)
Tabelle.Rows.Add(row)
Ob ich dem Item(0) den richtigen Wert zugewiesen habe, bin ich mir noch nicht sicher. Ich wüsste aber auch nicht wie das sonst funktionieren sollte.
Führe ich das Programm aus, erscheint die Meldung:
„Der Wert für ein unsigniertes Byte war zu groß oder zu klein. konnte nicht in der Datei-Spalte gespeichert werden. Erwarteter Typ: Byte.“
Wenn ich anstatt Byte, Object verwende, funktioniert es.
Eine neue Frage, die sich mir stellte, ist diese:
Wie kann ich die Datei (nachdem sie in eine Binärdatei umgewandelt wurde) mit dem entsprechenden Programm (z.B. Word | Windows Media Player …) wieder öffnen?
Muss ich die Datei so auslesen?
Dim Stream As FileStream
Stream = New FileStream(Tabelle.Rows(0).Item(0), FileMode.Open)