看别人写的文件分割工具挺好用，也学着写了一个，附源代码。

看别人写的文件分割工具挺好用，也学着写了一个，附源代码。(10) Dim ItemSize As Long
Dim FileSize As Long
Dim ReadSize As Long
Dim i As Long
Dim vArr() As Byte
Dim fnum2 As Integer
Dim FileName As String
Dim SplitFiles As Long

    If vSplit Then
    '合并
        ItemSize = cmbSplitSize.ItemData(cmbSplitSize.ListIndex)
        '取得当前选择的分析尺寸.
       
        ReDim vArr(1 To ItemSize) As Byte
        '重定义缓冲数组.
       
        FileName = Right(vFile, InStr(StrReverse(vFile), "\") - 1)
        '取得文件名.
       
        fnum = FreeFile()
        Open vFile For Binary As fnum
        FileSize = LOF(fnum)
        '取得文件大小
       
        While FileSize > 0
            ReadSize = ItemSize
            If ReadSize > FileSize Then
                '如果文件所剩余大小比当前选择的小,就使用剩余大小.
                ReadSize = FileSize
                ReDim vArr(1 To ReadSize)
            End If
           
            Get fnum, i * ItemSize + 1, vArr