用于vb.net的Shell32文件提取器脚本

时间:2014-07-26 04:43:08

标签: vb.net zip shell32

我正在编写一个用于分发的vb.net脚本,但我遇到了一个问题。由于我正在构建一个exe,因此脚本无法使用COM引用的Shell32库提取zip文件而不会触发防病毒。我想知道是否有人知道在vb.net中提取文件的更好方法,或者仅仅是防病毒不会删除我的脚本的方式,因为这将是一个分布式程序。

禁用防病毒不是解决方案,所以不建议。

1 个答案:

答案 0 :(得分:0)

试试这个

 Private Sub unzip()
    Dim sc As New Shell32.Shell()
    'Declare the folder where the files will be extracted
    Dim output As Shell32.Folder = sc.NameSpace("D:\unzip")
    'Declare your input zip file as folder  .
    Dim input As Shell32.Folder = sc.NameSpace("D:\zipFiles\")
    'Extract the files from the zip file using the CopyHere command .
    output.CopyHere(input.Items, 4)
 End Sub