用vb实现对库文件的分割备份

《用vb实现对库文件的分割备份 》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、用VB实现对库文件的分割备份在设计信息管理程序时，数据库的软盘备份与恢复是我们经常遇到的一个问题。如果仅仅使用文件复制指令，那么在文件大小超过软盘容量时，就会出现错误。下面我来介绍一种用VB实现的对文件进行分割备份的方法。假设在E:CLASS目录下有一个名为CLASSES.MDB的文件，3.8M，我们现在要按照每个1.4M，把它分割成3个文件进行备份，然后，再恢复成CLASSES1.MDB文件。启动VB,新建一个工程，添加一个模块，将下列代码填入模块的声明中：TypeFileSectionBytes()AsByteFileLenAsLongEndTypeTypeSe

2、ctionedFileFiles()AsFileSectionNumberOfFilesAsLongEndTypeTypeFileInfoOrigProjSizeAsLongOrigFileNameAsStringFileCountAsIntegerFileStartNumAsLongEndType然后，在Form1中添加两个按钮，分别命名为cmdBackup,Caption:"备份"；cmdRestore，Caption:"恢复"。分别双击按钮，填入以下代码：PrivateSubcmdBackup_Click()DimSplitFileNameAsString'待备

3、份的文件名DimSplitAsLong'备份文件的大小DimSaveNameAsString'备份文件名DimfNumAsInteger'可用的文件号DimNumFilAsLong'备份文件的数目DimFilesLenAsLong'待备份文件的大小DimCurrentFileAsSectionedFile'参数结构SplitFileName="e:classclasses.mdb"Split=1400000FilesLen=FileLen(SplitFileName)fNum=FreeFileOpenSplitFileNameForBinaryAsfNum'计算备

4、份参数NumFil=CInt(FilesLen/Split)ReDimCurrentFile.Files(1ToNumFil)Fori=1ToNumFilReDimCurrentFile.Files(i).Bytes(1ToSplit)CurrentFile.Files(i).FileLen=UBound(CurrentFile.Files(i).Bytes)NextFori=1ToNumFilGet#fNum,,CurrentFile.Files(i).BytesNextReDimCurrentFile.Files(NumFil).Bytes(1ToFilesLen

5、-((NumFil-1)*Split))CurrentFile.NumberOfFiles=NumFilGet#fNum,,CurrentFile.Files(NumFil).BytesCurrentFile.Files(NumFil).FileLen=UBound(CurrentFile.Files(NumFil).Bytes)Close#fNumFori=1ToCurrentFile.NumberOfFiles'分割备份SaveName=SplitFileName"."Format(BeginningNumber-1+i,"00#")fNum=FreeFileOp

6、enSaveNameForBinaryAsfNumPut#fNum,1,CurrentFile.Files(i)Close#fNumNextDimFileInfoFileAsFileInfo'相关数据写入临时文件FileInfoFile.FileCount=NumFilFileInfoFile.OrigFileName=SplitFileNameFileInfoFile.OrigProjSize=FileLen(SplitFileName)FileInfoFile.FileStartNum=BeginningNumberSaveName=SplitFileName".

7、tpl"fNum=FreeFileOpenSaveNameForBinaryAs#fNumPut#fNum,,FileInfoFileClose#fNumEndSubPrivateSubcmdRestore_Click()DimOutNameAsString'恢复后文件名DimfNumAsInteger'可用的文件号DimtmpFileNameAsString'临时文件名DimFileAsSectionedFile'参数结构DimFileInfoAsFileInfo'临时文件的结构tmpFileName="e:classclasses.mdb.t