翻新时间：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
- b光缆开剥与接续多媒体课件制作
- 通信电源的运行管理与应用研究
- 论提高报刊发行业务经营效益的途径
- 电信标准化的发展与作用
- 邮政应如何应对“入世”后的挑战
- 对我国农村接入网发展途径的研究
- 使用MAC平台的非线性编辑设备与PC机通信的握手及应用
- 局域网图书资料查询系统
- 基于TCP/IP的制造自动化网络安全问题研究
- 发挥网络优势是邮政的希望
- 试论作业成本法在邮政企业的运用
- 数字视频网络分析
- 物资管理信息系统开发
- 善良
- 爱迪生简介
- 异想天开的孩子
- 爱迪生的故事
- 《恐龙的灭绝》学习要点
- 《恐龙的灭绝》多音字组词
- 爱迪生的科学成就
- 《恐龙的灭绝》课文题意
- 《恐龙的灭绝》近反义词
- 爱迪生逸事
- 爱迪生珍惜时间
- 爱迪生逸闻趣事
- 两弹元勋邓稼先
- 《恐龙的灭绝》句子分析
- 忘了家门的博士