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");