在 VB.Net 中压缩 AppData 文件夹的问题答案

【问题标题】：Problem With Zipping An AppData Folder In VB.Net在 VB.Net 中压缩 AppData 文件夹的问题
【发布时间】：2019-03-03 19:04:10
【问题描述】：

代码：ZipFile.CreateFromDirectory((Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) + "\Folder"))

“重载解析失败，因为没有可访问的 'CreateFromDirectory' 接受此数量的参数。”

知道为什么吗？

【问题讨论】：

在发帖之前，您可能应该尝试在 microsoft 网站上搜索文档。见这里docs.microsoft.com/en-us/dotnet/api/…
我看不到如何在目录中添加特殊文件夹
您缺少要创建的 zip 文件的名称
“知道为什么吗？”。因为，正如错误消息所说，CreateFromDirectory 的重载不接受您提供的参数数量。你提供了多少论据？当您注意 Intellisense 告诉您的有关该方法的内容或阅读该方法的文档时，它说该方法有多少个参数？这就是你的答案。如果您想能够编写软件，那么您应该知道如何使用软件。帮助菜单和通过 F1 键的上下文相关帮助已经在 Windows 中使用了几十年。你应该在 VS 中使用它们。

标签： vb.net compression appdata

【解决方案1】：

这是一个完整的解决方案，如果源文件夹存在，它会在当前目录中创建一个名为“tmp.zip”的存档。

您的示例未编译，因为您必须提供目标存档的路径以及要存档的源文件夹。

Imports System.IO
Imports System.IO.Compression

Module Module1
    Sub Main()
        Dim destArchive = "tmp.zip"
        Dim sourceFolder As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "folder")

        If Directory.Exists(sourceFolder) Then
            If File.Exists(destArchive) Then
                File.Delete(destArchive)
            End If

            ZipFile.CreateFromDirectory(sourceFolder, destArchive)
        End If

        Console.ReadLine()
    End Sub
End Module

【讨论】：