Shulou(Shulou.com)06/02 Report--

This article mainly shows you "how to achieve compression and decompression of VB.NET", the content is easy to understand, clear, hope to help you solve your doubts, the following let the editor lead you to study and learn "how to achieve compression and decompression of VB.NET" this article.

VB.NET compression and decompression implementation code:

PublicEnumZip Zip=0' Compression UnZip=1' decompression EndEnum 'Compression, decompression 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= "restore compressed data * .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

Your application should have an executable file for winrar under the bin.

These are all the contents of the article "how to compress and decompress VB.NET". Thank you for reading! I believe we all have a certain understanding, hope to share the content to help you, if you want to learn more knowledge, welcome to follow the industry information channel!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.