VB实现txt文档按行数分成多个txt

由于txt文件太大  打开很慢  此程序将其分解多份 程序界面如下程序代码如下Private Sub Command1_Click()On Error GoTo errhandlerCommonDia