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

        Open OpenName For Binary As #fNum

            Get #fNum, 1, File.Files(i)

        Close #fNum

    Next

    Open OutName For Binary As #fNum '恢复

        For i = 1 To FileInfo.FileCount

            Put #fNum, , File.Files(i).Bytes

        Next

    Close #fNum

End Sub

    运行该例程，点击“备份”按钮，用资源管理器看看E:\CLASS目录，可以看到分割后的三个文件：CLASSES.MDB.000、CLASSES.MDB.001、CLASSES.MDB.002，大小分别为：1.33M、1.33M、1.1M，还有一个存放参数的文件：CLASSES.MDB.TPL，大小：1K。点击“恢复”按钮，这些文件又被恢复成了CLASSES1.MDB。

    以上程序在PWIN98、VB6环境下运行通过。需要的朋友