VB.net 选择文件夹中的文件和文件夹

Question

我正在尝试选择要压缩的文件夹中的文件和文件夹，但它似乎正在做的是选择所有文件夹，直到我选择的文件夹以及最终文件夹中的文件，但不是文件夹并拉上拉链。因此，例如在 tbFolder 我有字符串：“C:\Users\tomb\Desktop\DeOld\Mota7” 我想选择这个文件夹并压缩这个文件夹的全部内容、图像和所有内容。但是发生了以下情况：

它将文件夹结构创建到我要压缩的文件夹，并仅在其中添加文件而不是文件夹。我猜我需要调整这条线：

System.IO.Directory.GetFiles(DirectoryToZip)

这是完整的代码：

Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreate.Click

        Dim ZipFile As String = "C:\Releases\" & drpService.Text & "-" & DateTime.Now.ToString("YYmmDD") & ".zip"
        Dim DirectoryToZip As String = tbFolder.Text
        Dim filenames As String() = System.IO.Directory.GetFiles(DirectoryToZip)

        Using zip As ZipFile = New ZipFile
            zip.AddFiles(filenames)
            zip.Save(ZipFile)
        End Using


    End Sub

Answer 1

如果您使用的是DotNetZip，他们的网站上有一个添加整个目录的示例

zip.AddDirectory(DirectoryToZip, "RootFolderInZip");