读取一个大文件，从字节位置开始，并将其写入一个新文件vb.net

Dim sourceFile As New FileStream("path_to_source_file", FileMode.Open, FileAccess.Read)
Dim destinationFile As New FileStream("path_to_destination_file", FileMode.Create, FileAccess.Write)

Dim position As Long = 1000  ' 设置读取的起始位置，比如从第1000个字节开始读取
sourceFile.Seek(position, SeekOrigin.Begin)

Dim buffer(4096) As Byte
Dim bytesRead As Integer

While (bytesRead = sourceFile.Read(buffer, 0, buffer.Length)) > 0
    destinationFile.Write(buffer, 0, bytesRead)
End While

sourceFile.Close()
destinationFile.Close()