vb.net - 在 VB.Net 中压缩 AppData 文件夹的问题

Question

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

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

任何想法为什么？

标签： vb.netcompressionappdata

Answer 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