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

    OrigProjSize As Long

    OrigFileName As String

    FileCount As Integer

    FileStartNum As Long

End Type

    然后，在Form1中添加两个按钮，分别命名为cmdBackup,Caption:"备份"；cmdRestore，Caption:"恢复"。

    分别双击按钮，填入以下代码：

Private Sub cmdBackup_Click()

    Dim SplitFileName As String '待备份的文件名

    Dim Split As Long '备份文件的大小

    Dim SaveName As String '备份文件名

    Dim fNum As Integer '可用的文件号

    Dim NumFil As Long '备份文件的数目

    Dim CurrentFile As SectionedFile '参数结构