ZipFile未在Visual Basic 2017中声明

Question

我正在尝试制作一个小测试应用来压缩和提取文件夹，这是我的代码：

Imports System.IO
Imports System.IO.Compression

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        FolderBrowserDialog1.ShowDialog()
        If Not FolderBrowserDialog1.SelectedPath = "" Then
            Dim startPath As String = FolderBrowserDialog1.SelectedPath
            Dim zipPath As String = "C:\Users\LENOVO\Desktop\result.zip"
            ZipFile.CreateFromDirectory(startPath, zipPath)
        End If
    End Sub
End Class

错误发生在ZipFile命令中：

  未声明

ZipFile 。由于其保护级别，它可能无法访问。

我搜索了很多，我的目标框架是4.5.2所以应该支持Zip文件，我正在使用Visual Studio 2017。

任何帮助将不胜感激。

Answer 1

我通过添加引用解决了这个问题，只需转到 Project 标签 - ＆gt; Add Reference - ＆gt; Assemblies 标签然后选择 System.IO.Compression.FileSystem 并添加它，它应该可以使用，这里也是一些图片：

希望有人会觉得这很有用。

Answer 2

这可能不会影响每个人，但这是我必须解决的问题（尽可能多地将其作为自我说明）。

我最终不得不在计算机上找到System.IO.Compression.dll，System.IO.Compression.Filesystem.DLL和System.IO.Compression.ZipFile.dll，并将它们移至该站点的BIN文件夹中我正在尝试。我这样做后，所有“未声明”的错误都消失了。

Answer 3

类似的问题作为初始问题。我按照上面的其他解决方案/评论进行操作，最后不得不执行以下操作，该操作在细节上略有不同：

• 向大会参考文献中添加System.IO.Compression.FileSystem

• 将以下两个导入代码行都添加到代码的开头：

  Imports System.IO '(Needed for additional file system functions used)
  Imports System.IO.Compression.ZipFile
  

• 在不带“ ZipFile”的情况下调用函数：

  CreateFromDirectory(FileLocation1 & "\", FileLocation1 & ".zip")
  

我希望这可以支持其他面临相同问题的人。

BR Fnk