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

         width           =   945
      end
      begin vb.frame fraselect
         caption         =   "选项："
         height          =   585
         left            =   90
         tabindex        =   7
         top             =   1710
         width           =   3555
         begin vb.combobox cmbsplitsize
            height          =   315
            left            =   990
            style           =   2  'dropdown list
            tabindex        =   12
            top             =   210
            width           =   1305
         end
         begin vb.optionbutton optunit
            caption         =   "合并"
            height          =   315
            left            =   2640
            tabindex        =   9
            top             =   180
            width           =   825
         end
         begin vb.optionbutton optsplit
            caption         =   "分割"
            height          =   255
            left            =   240
            tabindex        =   8
            top             =   240
            value           =   -1  'true
            width           =   1305
         end
      end
      begin vb.commandbutton cmdfind
         caption         =   "选择文件夹"
         height          =   345
         left            =   2550