VB.NET如何實(shí)現(xiàn)壓縮和解壓縮

這篇文章主要為大家展示了“VB.NET如何實(shí)現(xiàn)壓縮和解壓縮”，內(nèi)容簡(jiǎn)而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學(xué)習(xí)一下“VB.NET如何實(shí)現(xiàn)壓縮和解壓縮”這篇文章吧。

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í)行文件.

以上是“VB.NET如何實(shí)現(xiàn)壓縮和解壓縮”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注億速云行業(yè)資訊頻道！