用VB實現(xiàn)對庫文件的分割備份

用VB實現(xiàn)對庫文件的分割備份

TypeFileSectionBytes()AsByteFileLenAsLongEndTypeTypeSectionedFileFiles()AsFileSectionNumberOfFilesAsLongEndTypeTypeFileInfoOrigProjSizeAsLongOrigFileNameAsStringFileCountAsIntegerFileStartNumAsLongEndType然后，在Form1中添加兩個按鈕，分別命名為cmdBackup，Caption:"備份"；cmdRestore，Caption:"恢復(fù)"。分別雙擊按鈕，填入以下代碼：PrivateSubcmdBackup_Click()DimSplitFileNameAsString'待備份的文件名DimSplitAsLong'備份文件的大小DimSaveNameAsString'備份文件名DimfNumAsInteger'可用的文件號DimNumFilAsLong'備份文件的數(shù)目DimFilesLenAsLong'待備份文件的大小DimCurrentFileAsSectionedFile'參數(shù)結(jié)構(gòu)SplitFileName="e:\class\classes.mdb"Split=1400000FilesLen=FileLen(SplitFileName)fNum=FreeFileOpenSplitFileNameForBinaryAsfNum'計算備份參數(shù)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'相關(guān)數(shù)據(jù)寫入臨時文件FileInfoFile.FileCount=NumFilFileInfoFile.OrigFileName=SplitFileNameFileInfoFile.OrigProjSize=FileLen(SplitFileName)FileInfoFile.FileStartNum=BeginningNumberSaveName=SplitFileName&".tpl"fNum=FreeFileOpenSaveNameForBinaryAs#fNumPut#fNum，，F(xiàn)ileInfoFileClose#fNumEndSubPrivateSubcmdRestore_Click()DimOutNameAsString'恢復(fù)后文件名DimfNumAsInteger'可用的文件號DimtmpFileNameAsString'臨時文件名DimFileAsSectionedFile'參數(shù)結(jié)構(gòu)DimFileInfoAsFileInfo'臨時文件的結(jié)構(gòu)tmpFileName="e:\class\classes.mdb.tpl"OutName="e:\class\classes1.mdb"fNum=FreeFileOpentmpFileNameForBinaryAs#fNum'取得相關(guān)數(shù)據(jù)Get#fNum，，F(xiàn)ileInfoClose#fNumReDimFile.Files(1ToFileInfo.FileCount)'打開備份文件Fori=1ToFileInfo.FileCountOpenName=FileInfo.OrigFileName&"."&Format((FileInfo.FileStartNum-1+i)，"00#")fNum=FreeFileOpenOpenNameForBinaryAs#fNumGet#fNum，1，F(xiàn)ile.Files(i)Close#fNumNextfNum=FreeFileOpenOutNameForBinaryAs#fNum'恢復(fù)Fori=1ToFileInfo.FileCountPut#fNum，，F(xiàn)ile.Files(i).BytesNextClose#fNumEndSub運(yùn)行該例程，點擊“備份”按鈕，用資源管理器看看E:\CLASS目錄，可以看到分割后的三個文件：CLASSES.MDB.000、CLASSES.MDB.001、CLASSES.MDB.002，大小分別為：1