Question

我试图选择要拉链的文件夹中的文件和文件夹, 但是它似乎正在做的是选择所有文件夹到 i 所选择的文件夹和最终文件夹中的文件, 但不选择文件夹, 并拉链。例如在 tbFolder 中, 我有一个字符串 : “ C: Users ombDesktopDeOldMota7 ” 我要选择此文件夹, 并拉链到此文件夹、图像和全部的全部内容。但是, 发生的情况是 :

""https://i.sstatic.net/8kPw2.jpg" alt="此处输入图像描述"/ >

它创建文件夹结构到文件夹, 我要拉链, 并只添加此边的文件, 而不是文件夹。我猜我需要调换行 :

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

如果您使用 < a href=> http://dotnetzip.codeplex.com/wikipage? title=VB-Examples& rereferringTitle=Examples" rel="no follow" >DotNetZip , 他们的网站上有一个示例可以添加整个目录

zip.AddDirectory(DirectoryToZip, "RootFolderInZip");

友情链接