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

Question

I'm trying to select the files and folders inside a folder to zip up, but what it seems to be doing is selecting all the folders up to the folder i've selected and the files in the final folder but not the folders in there and zipping them up. So for example in tbFolder I have the string: "C:\\Users\\tomb\\Desktop\\DeOld\\Mota7" I want to select this folder and zip up the entire contents of this folder, images and all. But whats happening is the following:

Its creating the folder structure up to the folder i want zipped and adding just the files in side this and not the folders. I'm guessing I need to tweak the line:

System.IO.Directory.GetFiles(DirectoryToZip)

Here is the entire code:

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