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

看别人写的文件分割工具挺好用，也学着写了一个，附源代码。(13)         txtObject.Text = Trim(TmpPath)
    End If
End Sub

Private Sub cmdSelectFile_Click()
    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"