在我們運(yùn)用VB.NET這門(mén)語(yǔ)言時(shí)，我們嘗嘗會(huì)遇到VB.NET壓縮和解壓縮的問(wèn)題，如何能更好的實(shí)現(xiàn)VB.NET壓縮的問(wèn)題，在這里我們用一個(gè)實(shí)例給大家詳細(xì)分析一下，希望可以給大家?guī)?lái)幫助。

VB.NET壓縮和解壓縮實(shí)現(xiàn)代碼：

PublicEnumZip  
Zip=0'壓縮  
UnZip=1'解壓縮  
EndEnum  
'壓縮、解壓縮  
PublicFunctionZipFile(ByValinDirPathAsString,OptionalByVal_zipAsZip=Zip.Zip,_  
OptionalByValstrFileNameAsString="C:\BACKUP")AsBoolean  
DimInfoAsNewInformation  
DimPrintMessageAsNewErrorinf  
DimstrCommandAsString  
If_zip=Zip.ZipThen  
DimdirectoryEntriesAsString()  
directoryEntries=System.IO.Directory.GetFileSystemEntries(inDirPath)  
DimstrFileAsString,strFileAllAsString  
ForEachstrFileIndirectoryEntries  
strFileAllstrFileAll=strFileAll&"-ep1"&strFile  
Next  
DimstrPassAsString=InputBox(Info.NOR_InputPassword,Info.NOR_PasswordInput)  
IfstrPass.Length>0Then  
strCommand="winrarA-hp"+strPass+"-ep1"  
Else  
strCommand="winrarA-ep1" 
EndIf  
strCommandstrCommand=strCommand&Space(1)&strFileName&Space(1)&strFileAll  
Try  
IfSystem.IO.File.Exists(strFileName)Then  
IfMsgBox(Info.NOR_ReplaceFile,_  
MsgBoxStyle.OKCancel+_  
MsgBoxStyle.Information,Info.NOR_Prompt)=MsgBoxResult.CancelThen  
ReturnFalse  
Else  
Shell(strCommand,AppWinStyle.NormalFocus,True)  
EndIf  
Else  
Shell(strCommand,AppWinStyle.NormalFocus,True)  
EndIf  
MsgBox(Info.SUC_ZipBackSuccess,MsgBoxStyle.OKOnly+MsgBoxStyle.Information,Info.NOR_Prompt)  
ReturnTrue  
Catch  
PrintMessage.WriteErr("Cls_Common->ZipFile",Info.ERR_ZipBackError)  
MsgBox(Info.ERR_ZipBackError,MsgBoxStyle.OKOnly+MsgBoxStyle.Information,Info.NOR_Prompt)  
ReturnFalse  
EndTry  
Else  
DimOpenDialogAsNewOpenFileDialog  
OpenDialog.Filter="還原壓縮數(shù)據(jù)*.rar|*.rar" 
IfOpenDialog.ShowDialog=DialogResult.CancelThen  
OpenDialog.Dispose()  
ReturnFalse  
EndIf  
strFileName=OpenDialog.FileName  
DimstrRePassAsString=InputBox(Info.NOR_InputPassword,Info.NOR_PasswordInput)  
IfstrRePass.Trim.Length>0Then  
strCommand="winrarX-hp"+strRePass.Trim+"-o+-inul-ep2"  
Else  
strCommand="winrarX-o+-inul-ep2" 
EndIf  
strCommandstrCommand=strCommand&Space(1)&strFileName&Space(1)&Application.StartupPath  
OpenDialog.Dispose()  
Try  
Shell(strCommand,AppWinStyle.NormalFocus,True)  
MsgBox(Info.SUC_ZipRevertSuccess,MsgBoxStyle.OKOnly+MsgBoxStyle.Information,Info.NOR_Prompt)  
ReturnTrue  
Catch  
PrintMessage.WriteErr("Cls_Common->ZipFile",Info.ERR_ZipRevertError)  
MsgBox(Info.ERR_ZipRevertError,MsgBoxStyle.OKOnly+MsgBoxStyle.Information,Info.NOR_Prompt)  
ReturnFalse  
EndTry  
EndIf  
'Debug.Write(strCommand)  
EndFunction 

你的應(yīng)用程序的bin下要有一個(gè)winrar的可執(zhí)行文件.

【編輯推薦】

1. 全方位分析VB.NET編碼規(guī)范
2. 剖析VB.NET Process的屬性與對(duì)象
3. VB.NET SendKeys方法與鍵入值
4. 用實(shí)例講述VB.NET Process類(lèi)
5. 簡(jiǎn)單講述VB.NET表間拖放