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