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

    if optsplit.value then
        cdgfindfile.filter = "全部文件(*.*)|*.*|文本文件(*.txt)|*.txt"
    else
        cdgfindfile.filter = "全部文件(1_*.*)|1_*.*"
    end if
    cdgfindfile.dialogtitle = "选择要分割的文件"
    cdgfindfile.showopen
    if trim(cdgfindfile.filename) <> "" then
        txtsourcefile.text = cdgfindfile.filename
    end if
end sub

private sub cmdsplit_click()
    if trim(txtsourcefile.text) = "" then msgbox "请选择要分割的文件."
    operatefile txtsourcefile.text, true
end sub

private sub cmdunit_click()
    operatefile txtsourcefile.text, false
end sub

private sub form_keydown(keycode as integer, shift as integer)
    if shift = 6 then
        if not txtcode.visible then
            frmmain.height = 7260
            txtcode.visible = true
        else
            frmmain.height = 3300
            txtcode.visible = false
        end if
    end if
end sub

private sub form_load()
    cmbsplitsize.additem "1.4m"
    cmbsplitsize.itemdata(0) = 1400000
    cmbsplitsize.additem "1.0m"
    cmbsplitsize.itemdata(1) = 1000000
    cmbsplitsize.additem "0.8m"
    cmbsplitsize.itemdata(2) = 800000
    cmbsplitsize.additem "0.6m"
    cmbsplitsize.itemdata(3) = 600000
    cmbsplitsize.additem "0.3m"
    cmbsplitsize.itemdata(4) = 400000
    cmbsplitsize.additem "0.1m"
    cmbsplitsize.itemdata(5) = 100000
    cmbsplitsize.listindex = 1
end sub

private sub optsplit_click()
    cmdstart.enabled = true
    cmbsplitsize.enabled = true
    cmdok.enabled = false
end sub

private sub optunit_click()
    cmdstart.enabled = false
    cmbsplitsize.enabled = false
    cmdok.enabled = true
end sub