VB.NET压缩和解压缩实例全面分析

在我们运用VB.NET这门语言时，我们尝尝会遇到VB.NET压缩和解压缩的问题，如何能更好的实现VB.NET压缩的问题，在这里我们用一个实例给大家详细分析一下，希望可以给大家带来帮助。

为莲花等地区用户提供了全套网页设计制作服务，及莲花网站建设行业解决方案。主营业务为网站设计制作、网站设计、莲花网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！

VB.NET压缩和解压缩实现代码：

 
 
 
    
  
  
  
  1. PublicEnumZip  
    2. 
  
  
  
  2. Zip=0'压缩  
    3. 
  
  
  
  3. UnZip=1'解压缩  
    4. 
  
  
  
  4. EndEnum  
    5. 
  
  
  
  5. '压缩、解压缩  
    6. 
  
  
  
  6. PublicFunctionZipFile(ByValinDirPathAsString,OptionalByVal_zipAsZip=Zip.Zip,_  
    7. 
  
  
  
  7. OptionalByValstrFileNameAsString="C:\BACKUP")AsBoolean  
    8. 
  
  
  
  8. DimInfoAsNewInformation  
    9. 
  
  
  
  9. DimPrintMessageAsNewErrorinf  
    10. 
  
  
  
  10. DimstrCommandAsString  
    11. 
  
  
  
  11. If_zip=Zip.ZipThen  
    12. 
  
  
  
  12. DimdirectoryEntriesAsString()  
    13. 
  
  
  
  13. directoryEntries=System.IO.Directory.GetFileSystemEntries(inDirPath)  
    14. 
  
  
  
  14. DimstrFileAsString,strFileAllAsString  
    15. 
  
  
  
  15. ForEachstrFileIndirectoryEntries  
    16. 
  
  
  
  16. strFileAllstrFileAll=strFileAll&"-ep1"&strFile  
    17. 
  
  
  
  17. Next  
    18. 
  
  
  
  18. DimstrPassAsString=InputBox(Info.NOR_InputPassword,Info.NOR_PasswordInput)  
    19. 
  
  
  
  19. IfstrPass.Length>0Then  
    20. 
  
  
  
  20. strCommand="winrarA-hp"+strPass+"-ep1"  
    21. 
  
  
  
  21. Else  
    22. 
  
  
  
  22. strCommand="winrarA-ep1" 
    23. 
  
  
  
  23. EndIf  
    24. 
  
  
  
  24. strCommandstrCommand=strCommand&Space(1)&strFileName&Space(1)&strFileAll  
    25. 
  
  
  
  25. Try  
    26. 
  
  
  
  26. IfSystem.IO.File.Exists(strFileName)Then  
    27. 
  
  
  
  27. IfMsgBox(Info.NOR_ReplaceFile,_  
    28. 
  
  
  
  28. MsgBoxStyle.OKCancel+_  
    29. 
  
  
  
  29. MsgBoxStyle.Information,Info.NOR_Prompt)=MsgBoxResult.CancelThen  
    30. 
  
  
  
  30. ReturnFalse  
    31. 
  
  
  
  31. Else  
    32. 
  
  
  
  32. Shell(strCommand,AppWinStyle.NormalFocus,True)  
    33. 
  
  
  
  33. EndIf  
    34. 
  
  
  
  34. Else  
    35. 
  
  
  
  35. Shell(strCommand,AppWinStyle.NormalFocus,True)  
    36. 
  
  
  
  36. EndIf  
    37. 
  
  
  
  37. MsgBox(Info.SUC_ZipBackSuccess,MsgBoxStyle.OKOnly+MsgBoxStyle.Information,Info.NOR_Prompt)  
    38. 
  
  
  
  38. ReturnTrue  
    39. 
  
  
  
  39. Catch  
    40. 
  
  
  
  40. PrintMessage.WriteErr("Cls_Common->ZipFile",Info.ERR_ZipBackError)  
    41. 
  
  
  
  41. MsgBox(Info.ERR_ZipBackError,MsgBoxStyle.OKOnly+MsgBoxStyle.Information,Info.NOR_Prompt)  
    42. 
  
  
  
  42. ReturnFalse  
    43. 
  
  
  
  43. EndTry  
    44. 
  
  
  
  44. Else  
    45. 
  
  
  
  45. DimOpenDialogAsNewOpenFileDialog  
    46. 
  
  
  
  46. OpenDialog.Filter="还原压缩数据*.rar|*.rar" 
    47. 
  
  
  
  47. IfOpenDialog.ShowDialog=DialogResult.CancelThen  
    48. 
  
  
  
  48. OpenDialog.Dispose()  
    49. 
  
  
  
  49. ReturnFalse  
    50. 
  
  
  
  50. EndIf  
    51. 
  
  
  
  51. strFileName=OpenDialog.FileName  
    52. 
  
  
  
  52. DimstrRePassAsString=InputBox(Info.NOR_InputPassword,Info.NOR_PasswordInput)  
    53. 
  
  
  
  53. IfstrRePass.Trim.Length>0Then  
    54. 
  
  
  
  54. strCommand="winrarX-hp"+strRePass.Trim+"-o+-inul-ep2"  
    55. 
  
  
  
  55. Else  
    56. 
  
  
  
  56. strCommand="winrarX-o+-inul-ep2" 
    57. 
  
  
  
  57. EndIf  
    58. 
  
  
  
  58. strCommandstrCommand=strCommand&Space(1)&strFileName&Space(1)&Application.StartupPath  
    59. 
  
  
  
  59. OpenDialog.Dispose()  
    60. 
  
  
  
  60. Try  
    61. 
  
  
  
  61. Shell(strCommand,AppWinStyle.NormalFocus,True)  
    62. 
  
  
  
  62. MsgBox(Info.SUC_ZipRevertSuccess,MsgBoxStyle.OKOnly+MsgBoxStyle.Information,Info.NOR_Prompt)  
    63. 
  
  
  
  63. ReturnTrue  
    64. 
  
  
  
  64. Catch  
    65. 
  
  
  
  65. PrintMessage.WriteErr("Cls_Common->ZipFile",Info.ERR_ZipRevertError)  
    66. 
  
  
  
  66. MsgBox(Info.ERR_ZipRevertError,MsgBoxStyle.OKOnly+MsgBoxStyle.Information,Info.NOR_Prompt)  
    67. 
  
  
  
  67. ReturnFalse  
    68. 
  
  
  
  68. EndTry  
    69. 
  
  
  
  69. EndIf  
    70. 
  
  
  
  70. 'Debug.Write(strCommand)  
    71. 
  
  
  
  71. EndFunction 
    72.

你的应用程序的bin下要有一个winrar的可执行文件.

新闻名称：VB.NET压缩和解压缩实例全面分析
网页链接：http://www.stwzsj.com/qtweb/news29/10779.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联

猜你还喜欢下面的内容

动态网站知识

同城分类信息

网站制作　　 　绵阳网站建设　　 　成都网络营销　　 　成都艾瑞格　　 　广安园林绿化公司　　 　鑫友邦火锅桌　　 　成都微信公众号开发　　 　邛崃做网站　　 　阿坝网站设计　　 　南充服务器托管　　 　成都创新互联　　 　成都网站建设　　 　成都移动服务器托管　　 　建站公司　　 　成都门窗定制　　 　亮美家　　 　网创优客　　 　营山网站建设　　 　企业网站设计　　 　成都画册制作