怎么用VB实现对库文件的分割备份

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

2、()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=FreeFile计算备份参OpenSplitFileName

4、ForBinaryAsfNumNumFil=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#"

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

7、ileName&".tpl"fNum=FreeFileOpenSaveNameForBinaryAs#fNumPut#fNum,FileInfoFileEndSubPrivateSubcmdRestore_Click()DimOutNameAsString'恢复后文件名DimfNumAsInteger'可用的文件号DimtmpFileNameAsString'临时文件名参数结构DimFileAsSectionedFileDim FileInfo As FileInfo临时文件的结构tmpFileName="e:classclasse

8、s.mdb.tpl"OutName="e:classclasses1.mdb"fNum=FreeFileOpentmpFileNameForBinaryAs#fNum'取得相关数据Get#fNum,FileInfoReDimFile.Files(1ToFileInfo.FileCount)'打开备份文件Fori=1ToFileInfo.FileCountOpenName=FileInfo.OrigFileName&"."&Format(FileInfo.FileStartNum-1+i),"00#")fNum=FreeFileOpenOpenNameForBinaryAs#fNumClose#fNumNextfNum=FreeFile恢复OpenOutNameForBinaryAs#fNumFori=1ToFileInfo.FileCountPut#fNum,File.Files(i).BytesNextClose #fNumEndSub运行该例程，点击“备份”按钮，用资源管理器看看E:CLASS目录，可以看到分割后的三个文件：CLASSES.MDB.0Q0CLASSES.MDB.0Q1CLASSES.MDB.002大小分别为：1