完结小说排行榜,小说网

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案

VB.NET壓縮和解壓縮實(shí)例全面分析

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

為蓮花等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計(jì)制作服務(wù)，及蓮花網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為網(wǎng)站設(shè)計(jì)制作、網(wǎng)站設(shè)計(jì)、蓮花網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會(huì)得到認(rèn)可，從而選擇與我們長(zhǎng)期合作。這樣，我們也可以走得更遠(yuǎ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í)例全面分析
文章分享：http://fisionsoft.com.cn/article/djjjdgc.html

新聞中心

其他資訊