翻新时间：2013-12-14
用VB实现对库文件的分割备份
用VB实现对库文件的分割备份
殷鹏
在设计信息管理程序时，数据库的软盘备份与恢复是我们经常遇到的一个问题。如果仅仅使用文件复制指令，那么在文件大小超过软盘容量时，就会出现错误。下面我来介绍一种用VB实现的对文件进行分割备份的方法。假设在E:CLASS目录下有一个名为CLASSES.MDB的文件，3.8M，我们现在要按照每个1.4M，把它分割成3个文件进行备份，然后，再恢复成CLASSES1.MDB文件。启动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:classclasses.mdb"
Split = 1400000
FilesLen = FileLen(SplitFileName)
fNum = FreeFile
Open SplitFileName For Binary As fNum '计
下载文档
网友最新关注
- 苦与甜
- 春天的清晨
- 读画蛇添足有感
- 《自相矛盾》读后感
- 参加集训 苦中有乐
- 走进秋季
- 关爱生命 健康成长
- 人行道的自述
- 学校，我爱你！
- 瞧这一家子
- 坚强的小婷婷
- 《和梦一起飞》激励人心
- 开学第一天
- 我想有个家
- 难忘的清洁工
- 强迫交易罪中的几个问题刑法论文(1)
- 各个历史时期的传统文化对民族传统体育的影响
- 管窥事实错误中认识模型刑法论文(1)
- 中国现行死刑政策的评价及其反思刑法论文(1)
- 发挥金融机构在反洗钱中的作用刑法论文(1)
- 传统文化在语文教学中的培养
- 浅谈柳与中华传统文化
- 犯罪过失若干问题的探讨刑法论文(1)
- 一个不公正的司法解释刑法论文(1)
- 从传统文化看中国园林
- 传统文化热后国产动漫呼唤民族文化精神
- 漫话武术指导
- 国术 传统文化 文化传统
- 由《证据的叹息》看犯罪“故意”问题
- 运输基础设施建设的融资政策探讨刑法论文(1)
- 《我的舞台》
- 《卖火柴的小女孩》2
- 《少年闰土》
- 《草船借箭》2
- 《为人民服务》2
- 《穷人》2
- 《卖火柴的小女孩》1
- 《草原》1
- 《秦兵马俑》
- 《山雨》
- 《草原》2
- 《将相和》
- 《山中访友》
- 《穷人》1
- 《草船借箭》1