VB文件发送核心代码
//文件发送核心代码
Dim a() As Byte
p = File1.Path & "\" & File1.FileName '发送的文件路径
Winsock2.SendData p
send_filename = p '发送的文件名
Open send_filename For Binary As #1 '以二进制方式打开文件
DoEvents
If LOF(1) <= 1000 Then '判断载入文件的大小,如果小于1000直接发送
ReDim a(1 To LOF(1)) As Byte '重新定义数组大小
Get #1, , a '获取文件
Close
Winsock1.SendData a
Exit Sub
End If
If LOF(1) > 1000 Then '如果大于1000
lump = LOF(1) \ 1000 '切割的块数
left_lump = LOF(1) Mod 1000 '剩下的文件的大小
For i = 1 To lump
ReDim a(1 To 1000) As Byte
Get #1, , a
Winsock1.SendData a
Next
End If
If left_lump > 0 Then '如果剩下文件大小大于0字节
ReDim a(1 To left_lump) As Byte
Get #1, , a
Winsock1.SendData a '发送文件
End If
Close
Close