Zip несколько файлов в одну папку

Question

Так что у меня возникли проблемы с попыткой примирить эту концепцию, поскольку каждое изменение, которое я делаю, похоже, не устраняет проблему.

У меня есть многострочный textbox и может ввести несколько значений, разделенных запятыми и здесь подробности:

1. Каждое значение представляет собой папку
2. И каждая папка имеет несколько документов/другие папки внутри
3. All из этих значений находятся в одном основном каталоге (позволяет называть его путь к папке)

Например, я вхожу в свой текстовый блок «65635,65636» каждый из них представляет собой папку в директории т.е. «\ путь_к_папке \ 65635» и «\ путь_к_папке \ 65636», я пытаюсь застегнуть эти целые папки с помощью DotNetZiplib, я знаю, как это сделать, если я специально ссылаюсь на одну папку, но есть ли где-нибудь петля через текстовое поле, чтобы получить имена папок и добавить файлы в одну папку на молнии?

Using zip As New ZipFile = new ZipFile 
Dim files() As String = Directory.GetFiles(folderpath & textboxvalue) 
For each textboxvalue in directory.getfiles 
    zip.Addfile(textboxvalue) 

Функция zipfile я должен бы знать, чтобы перебрать их, в отличие от предполагая, что это один большой файл.

Answer 1

Вы должны разделить значения текстового поля в массиве, чтобы получить числа, разделенные запятой. Затем вам понадобится объединить свою папку с этими значениями разделенных текстов, правильно создав путь.

Проверьте, существует ли папка в системе, если Да, затем получите все файлы из каталога и для каждого имени файла запишите его.

Что-то вроде этого:

Using zip As New ZipFile("your zip filename") 
For Each str As String In textboxvalue.Split(",") 
    Dim path as String = System.IO.Path.Combine(folderpath, str) 
    If System.IO.Directory.Exists(path) = False Then 
     Continue For 
    End If 

    Dim files() As String = Directory.GetFiles(path) 

    For Each fileName As String In files 
     zip.Addfile(fileName) 
    Next 
Next 
End Using