用VB实现对库文件的分割备份
Dim fNum As Integer '可用的文件号
Dim tmpFileName As String '临时文件名
Dim File As SectionedFile '参数结构
Dim FileInfo As FileInfo '临时文件的结构
tmpFileName = "e:\class\classes.mdb.tpl"
OutName = "e:\class\classes1.mdb"
> fNum = FreeFile
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#")
- 上一篇论文: 利用ASP实现在线统计图表
- 下一篇论文: 刍议防火墙的选购