怎样拆分文件.(高分增送)

Question

我现想传输文件，在传输前先将文件分为若干快存入数组中。
再进行传输，每一快的大小为1024字节.
  请问该怎样拆分?

Answer 1

Option Explicit
Dim arr() As Byte
Dim l As Long
Dim k As Long
Dim i As Long
Dim m As LongPrivate Sub Command1_Click()
    Open "C:\1.CHM" For Binary As #1
    l = LOF(1)
    k = Int(l / 1024)
    m = l Mod 1024
    If k > 0 Then
        ReDim arr(1023)
        For i = 1 To k
            Get #1, 1 + (i - 1) * 1024, arr
'           发送ARR ...
            DoEvents
        Next
    End If
    
    If i = 0 Then i = 1
    If m > 0 Then
        ReDim arr(m - 1)
        Get #1, 1 + (i - 1) * 1024, arr
'           发送ARR ...
    End If
    Close #1
                
End Sub

Answer 2

我也要 [email protected] 
谢谢：）：）

Answer 3

给我一份儿！谢谢1
[email protected]

Answer 4

http://www.csdn.net/develop/article/14/14112.shtm

Answer 5

我想看看. [email protected] 謝謝!

Answer 6

给我一份，谢谢！
[email protected]