Vb.net 将文件截断为字节大小

我有以下代码从现有文件创建另一个文件；生成的文件与原始文件相同。但是，我需要生成的文件database.test只有原始文件数据库的1024字节。1。有人能给我一些快速的解决方法吗。下面是我的代码

Imports System.IO

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim data() As Byte = File.ReadAllBytes("C:\PROGRAMS\DATABASE.1")
        File.WriteAllBytes("c:\programs\database.test", data)
    End Sub
End Class

---

感谢您的建议：-

我终于做到了这一点：-

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim data() As Byte = File.ReadAllBytes("C:\PROGRAMS\DATABASE.1")
        'File.WriteAllBytes("c:\programs\database.test", data)

        Using writer As BinaryWriter = New BinaryWriter(File.Open("c:\programs\database.test", FileMode.Create))

            Dim x As Single = data.Length - 1

            Dim l As Single = 0

            For l = 0 To 1023

                writer.Write(data(l))

            Next



        End Using



    End Sub

---

与其写所有的字节，不如写128个？一定有办法查一下怎么做。。。然后你会发现如何读取128个字节。如果你截断数据库，它将无法使用。除非它不是纯文本文件。在这种情况下，我不会称之为数据库。这是写1024个字节-你的问题是1024位。对不起，必须是字节！