VB文件发送核心代码

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