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

         tabindex        =   6
         top             =   1170
         width           =   1125
      end
      begin vb.commandbutton cmdselectfile
         caption         =   "选择文件"
         height          =   345
         left            =   2550
         tabindex        =   5
         top             =   480
         width           =   1125
      end
      begin vb.textbox txtsourcefile
         height          =   315
         left            =   90
         tabindex        =   2
         top             =   480
         width           =   2355
      end
      begin vb.textbox txtobject
         height          =   315
         left            =   90
         tabindex        =   1
         top             =   1170
         width           =   2355
      end
      begin vb.label lblcaption
         caption         =   "选择的源文件："
         height          =   285
         index           =   0
         left            =   90
         tabindex        =   4
         top             =   210
         width           =   1515
      end
      begin vb.label lblcaption
         caption         =   "选择的目标文件夹："
         height          =   285
         index           =   1
         left            =   90
         tabindex        =   3
         top             =   900
         width           =   1815
      end