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

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form frmMain
   BorderStyle     =   1  'Fixed Single
   Caption         =   "文件分割工具"
   ClientHeight    =   2880
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3795
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2880
   ScaleWidth      =   3795
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtCode
      BackColor       =   &H8000000F&
      Height          =   3945
      Left            =   30
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   13
      Top             =   2910
      Visible         =   0   'False
      Width           =   3705
   End
   Begin VB.Frame frmContainer
      Height          =   2865
      Left            =   0
      TabIndex        =   0
      Top             =   30
      Width           =   3735
      Begin VB.CommandButton cmdUnit
         Caption         =   "合      并"
         Enabled         =   0   'False
         Height          =   345
         Left            =   1890
         TabIndex        =   11
         Top             =   2400
         Width           =   945
      End
      Begin VB.CommandButton cmdSplit
         Caption         =   "分     割"
         Height          =   345
         Left            =   120
         TabIndex        =   10
         Top             =   2400
         Width           =   945