翻新时间：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 '计
下载文档
网友最新关注
- 那些遗忘的忧伤
- 邂逅文科
- 窒息的文明
- 无法抵御的伤痛
- 寻找
- 永远
- 乱
- 心灵的距离
- 下辈子一定做个“好学生”
- 相逢是一生的幸福
- 沉沉的幸福感
- 高三
- 成长的痕迹
- 高中前行中
- 深爱这土地
- 做个懂得用钱的美容院老板
- 单克隆抗体在黑素瘤诊断中的作用
- 一次性根管治疗对老年人磨牙感染根管的疗效分析
- 蕊莉娅,从女人到女神的完美蜕变
- 吉鹤村酒业杯2局
- 四肢恶性黑色素瘤28例的治疗回顾分析
- 王天一蝉联茅山杯3局
- 团队建设是企业永久发展之道
- 3―D定点及定量自体脂肪移植在面部塑形中的应用
- 口腔正畸科青年医师规范化专科培训初探
- 快速应对美容院公关危机
- 彩超引导下聚桂醇泡沫硬化治疗静脉畸形临床疗效观察
- 被互联网埋葬的美容盈利模式
- 分裂式桩核冠在老年人后牙残根残冠修复中的临床应用
- 腋下切口全程内窥镜隆乳术的临床体会
- 教师教学技能的要求
- 肖川：教育的意向性
- 60个中国孤儿的守护神
- 个性化的语文课与语文教师的个性
- 苏轼《江城子 忆梦》研究性学习教学设计
- 科学教育和创新型工程技术人才的培养（下）
- 在语文教学中发展学生个性
- 语文新课标的阅读教学新概念
- 国外高中母语课程标准和理念(下)
- 中学文学教育采撷
- 许锡良：谈谈教师怎样成长
- 关于议论性散文
- 映潮评课之《庄周买水》
- 做一名反思型的教师
- 朱佩玲：为高中课程改革鼓与呼