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

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

TypeFileSectionBytes()AsByteFileLenAsLongEndTypeTypeSectionedFileFiles()AsFileSectionNumberOfFilesAsLongEndTypeTypeFileInfoOrigProjSizeAsLongOrigFileNameAsStringFileCountAsIntegerFileStartNumAsLongEndType然后，在Form1中添加两个按钮，分别命名为cmdBackup，Caption:"备份"；cmdRestore，Caption:"恢复"。分别双击按钮，填入以下代码：PrivateSubcmdBackup_Click()DimSplitFileNameAsString'待备份的文件名DimSplitAsLong'备份文件的大小DimSaveNameAsString'备份文件名DimfNumAsInteger'可用的文件号DimNumFilAsLong'备份文件的数目DimFilesLenAsLong'待备份文件的大小DimCurrentFileAsSectionedFile'参数结构SplitFileName="e:\class\classes.mdb"Split=1400000FilesLen=FileLen(SplitFileName)fNum=FreeFileOpenSplitFileNameForBinaryAsfNum'计算备份参数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-((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=FreeFileOpenSaveNameForBinaryAsfNumPut#fNum，1，CurrentFile.Files(i)Close#fNumNextDimFileInfoFileAsFileInfo'相关数据写入临时文件FileInfoFile.FileCount=NumFilFileInfoFile.OrigFileName=SplitFileNameFileInfoFile.OrigProjSize=FileLen(SplitFileName)FileInfoFile.FileStartNum=BeginningNumberSaveName=SplitFileName&".tpl"fNum=FreeFileOpenSaveNameForBinaryAs#fNumPut#fNum，，FileInfoFileClose#fNumEndSubPrivateSubcmdRestore_Click()DimOutNameAsString'恢复后文件名DimfNumAsInteger'可用的文件号DimtmpFileNameAsString'临时文件名DimFileAsSectionedFile'参数结构DimFileInfoAsFileInfo'临时文件的结构tmpFileName="e:\class\classes.mdb.tpl"OutName="e:\class\classes1.mdb"fNum=FreeFileOpentmpFileNameForBinaryAs#fNum'取得相关数据Get#fNum，，FileInfoClose#fNumReDimFile.Files(1ToFileInfo.FileCount)'打开备份文件Fori=1ToFileInfo.FileCountOpenName=FileInfo.OrigFileName&"."&Format((FileInfo.FileStartNum-1+i)，"00#")fNum=FreeFileOpenOpenNameForBinaryAs#fNumGet#fNum，1，File.Files(i)Close#fNumNextfNum=FreeFileOpenOutNameForBinaryAs#fNum'恢复Fori=1ToFileInfo.FileCountPut#fNum，，File.Files(i).BytesNextClose#fNumEndSub运行该例程，点击“备份”按钮，用资源管理器看看E:\CLASS目录，可以看到分割后的三个文件：CLASSES.MDB.000、CLASSES.MDB.001、CLASSES.MDB.002，大小分别为：1