用VB实现对库文件的分割备份
p; Close #fNum
本文链接地址:http://www.oyaya.net/fanwen/view/140687.html
Next
Dim FileInfoFile As FileInfo '相关数据写入临时文件
FileInfoFile.FileCount = NumFil
FileInfoFile.OrigFileName = SplitFileName
FileInfoFile.OrigProjSize = FileLen(SplitFileName)
FileInfoFile.FileStartNum = 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 '可用的文件号 《用VB实现对库文件的分割备份(第5页)》