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

看别人写的文件分割工具挺好用，也学着写了一个，附源代码。(8)          TabIndex        =   3
         Top             =   900
         Width           =   1815
      End
   End
   Begin MSComDlg.CommonDialog cdgFindFile
      Left            =   3060
      Top             =   90
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_EXPosed = False
Option Explicit

Private Declare Function SHBrowseForFolder _
        Lib "shell32.dll" Alias "SHBrowseForFolderA" _
        (lpBrowseInfo As BROWSEINFO) As Long

Private Declare Function SHGetPathFromIDList _
        Lib "shell32.dll" _
        (ByVal pidl As Long, _
        pszPath As String) As Long

Private Type BROWSEINFO
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String