在vb.net中z缩放appdata文件夹的问题

Question

代码：zipfile.createfromdirectory（（Emovilence.getFolderPath（emoverument.specialfolder.applicationdata）） " folder"））

）） ））

"超负荷分辨率失败了，因为没有可访问的'CreateFromDirectory'接受此数量的参数。"

任何想法为什么？

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