版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
上一节(vb.net 教程 3-9 窗体编程 串口组件3 SerialPort传输的简单范例3)中学习了如何发送字节数组，那么可以使用SerialPort的Write()和Read()方法来发送和接收一个文件。下面的代码将给出具体的示例。
窗口设计试图：
窗体载入的时候打开COM1：
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
SerialPort1.PortName = "COM1"
SerialPort1.Open()
End Sub
读取文件写入到字节数组，然后进行发送：
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim fs As New FileStream("D:\app.png", FileMode.Open, FileAccess.Read)
Dim filelen As Integer = fs.Length
Dim br As New BinaryReader(fs)
Dim writeByte() As Byte
For i As Integer = 0 To filelen - 1 Step 1024
writeByte = br.ReadBytes(1024)
SerialPort1.Write(writeByte, 0, writeByte.Length)
Next
br.Close()
fs.Close()
End Sub
读取数据，再写入到新文件：
Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim fs As New FileStream("d:\appnew.png", FileMode.Append, FileAccess.Write)
Dim bw As New BinaryWriter(fs)
Dim readByte() As Byte
Dim readLen As Integer = SerialPort1.BytesToRead
ReDim readByte(readLen - 1)
SerialPort1.Read(readByte, 0, readLen)
bw.Write(readByte, 0, readLen)
bw.Close()
fs.Close()
End Sub
以上代码比较简单，请自vb.net教程行研究。
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
