Проблема с архивированием папки AppData в VB.Net

Question

Код: ZipFile.CreateFromDirectory ((Environment.GetFolderPath (Environment.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