用VB实现对库文件的分割备份

    Dim tmpFileName As String '临时文件名

    Dim File As SectionedFile '参数结构

    Dim FileInfo As FileInfo '临时文件的结构

    tmpFileName = "e:\class\classes.mdb.tpl"

    OutName = "e:\class\classes1.mdb"

    Open tmpFileName For Binary As #fNum '取得相关数据

        Get #fNum, , FileInfo

    Close #fNum

    ReDim File.Files(1 To FileInfo.FileCount) '打开备份文件

    For i = 1 To FileInfo.FileCount

        OpenName = FileInfo.OrigFileName & "." & Format((FileInfo.FileStartNum - 1 + i), "00#")