用VB实现对库文件的分割备份
Type FileSection
Bytes() As Byte
FileLen As Long
End Type
Type SectionedFile
Files() As FileSection
NumberOfFiles As Long
End Type
Type FileInfo
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 FilesLen As Long ‘待备份文件的大小
Dim CurrentFile As SectionedFile ‘参数结构
SplitFileName = "e:“class“"
FilesLen = FileLen(SplitFileName)
fNum = FreeFile
Open SplitFileName For Binary As fNum ‘计算备份参数
NumFil = CInt(FilesLen /
ReDim (1 To NumFil)
For i = 1 To NumFil
ReDim (i).Bytes(1 To
(i).FileLen = UBound((i).Bytes)
Next
For i = 1 To NumFil
Get #fNum, , (i).Bytes
Next
ReDim (NumFil).Bytes(1 To FilesLen - ((NumFil - 1) *
OfFiles = NumFil
Get #fNum, , (NumFil).Bytes
(NumFil).FileLen = UBound((NumFil).Bytes)
Close #fNum
For i = 1 To OfFiles ‘分割备份
SaveName = SplitFileName & "." & Format(BeginningNumber - 1 + i, "00#")
fNum = FreeFile
Open SaveName For Binary As fNum
Put #fNum, 1, (i)
Close #fNum
Next
Dim FileInfoFile As FileInfo ‘相关数据写入临时文件
unt = NumFil
leName = SplitFileName
ojSize = FileLen(SplitFileName)
artNum = BeginningNumber
SaveName = SplitFileName & ".tpl"
fNum = FreeFile
Open SaveName For Binary As #fNum
Put #fNum, , FileInfoFile
Close #fNum
End Sub
Private Sub cmdRestore_Click()
Dim OutName As String ‘恢复后文件名
Dim fNum As Integer ‘可用的文件号
Dim tmpFileName As String ‘临时文件名
Dim File As SectionedFile ‘参数结构
Dim FileInfo As FileInfo ‘临时文件的结构
tmpFileName = "e:“class“"
OutName = "e:“class“"
fNum = FreeFile
Open tmpFileName For Binary As #fNum ‘取得相关数据
Get #fNum, , FileInfo
Close #fNum
ReDim (1 To unt) ‘打开备份文件
For i = 1 To unt
OpenName = leName & "." & Format((artNum - 1 + i), "00#")
fNum = FreeFile
Open OpenName For Binary As #fNum
Get #fNum, 1, (i)
Close #fNum
Next
fNum = FreeFile
Open OutName For Binary As #fNum ‘恢复
For i = 1 To unt
Put #fNum, , (i).Bytes
Next
Close #fNum
End Sub
运行该例程，点击“备份”按钮，用资源管理器看看E:“CLASS目录，可以看到分割后的三个文件：.000、.001、.002，大小分别为：1.33M、1.33M、1.1M，还有一个存放参数的文件：，大小：1K。点击“恢复”按钮，这些文件又被恢复成了。
以上程序在PWIN98、VB6环境下运行通过。需要的朋友可以加入拷贝到A盘等语句，这样，一个实用的备份与恢复程序就完成了。
上一篇：浅谈银行计算机网络系统的安全防范
下一篇：Java语言与Java 技术