用VB实现对库文件的分割备份
用VB实现对库文件的分割备份
殷鹏
在设计信息管理程序时,数据库的软盘备份与恢复是我们经常遇到的`一个问题。如果仅仅使用文件复制指令,那么在文件大小超过软盘容量时,就会出现错误。下面我来介绍一种用VB实现的对文件进行分割备份的方法。假设在E:CLASS目录下有一个名为的文件,3.8M,我们现在要按照每个1.4M,把它分割成3个文件进行备份,然后,再恢复成文件。启动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:class"
Split = 1400000
FilesLen = FileLen(SplitFileName)
fNum = FreeFile
Open SplitFileName For Binary As fNum '计
-
高中数学研究式学习存在的问题探究论文
探究式教学是建构主义学习理论的一种教学实践模式。探究式课堂的特点是学生通过合作交流、自主探究获得新知识。探究式教学与传统的接受式教学和训练式教学相比,更具问题性、实践性和开放性,将学生置身于动态、开放、生动的学习环境中,有利于学生的自主学习和自主...
-
情之深,趣之浓-浅谈小学英语课堂的“情”与“趣”
任何一种教育都应该是爱的教育,以教师对学生的爱、对自己所教学科的爱,来唤起学生对知识的爱。“情感是人类特有的灵性”,“兴趣是学生最好的老师”。古人云:“未见意趣,必不乐学。”兴趣是最好的老师,是学习的强大动力。一个成功的英语教师要在教学中有意识地培养学...
-
人力资源管理激励探析
激励机制,就是在管理活动中根据人的心理变化,激发人的动机来启动人的内在动力,促使每一个人、每一个企业,迅速、有效地去追求目标而建立的一系列有机结合的管理方式。以下是本站小编为您整理的人力资源管理激励探析,希望能提供帮助。摘要:企业管理的关键是人本管理,人...
-
关于多媒体技术在电工电子技术教学中的作用的论文
一、对于传统教学模式及其教学设备进行问题分析1.传统教学模式老套,无新意传统的电子电工的教学方式是以教师讲解为主体,一节课的时间大部分都被教师讲解专业知识所占用,而学生却听得云里雾里,甚至对学习失去信心。在电子电工的课本上大都标记了需要实验操作的详细...