مشکل در زیپ کردن تعدادی فایل

[alireza_omidi]

سلام به همه دوستان. وقتتون بخیر...
من یه کد نوشتم و با استفاده از اون تونستم فایل‌هایی که فرمت مشخصی دارند رو زیپ کنم. اما مشکلی که وجود داره اینه که کل فولدرهایی توی مسیر این فایل‌ها هم به فایل زیپ اضافه شدن. مثلا فرض کنید که تعدادی فایل در مسیر زیر داریم:

C:\Users\Alireza\Files

زمانی که فایل زیپ ساخته میشه مسیر بالا به شکل فولدر و ساب فولدر داخلش هست و باید همه فولدرها رو باز کنم تا به فایل‌های اصلی برسم. من میخوام فایل‌ها مستقیما در ریشه فایل زیپ قرار بگیرند. کدی که نوشتم این شکلی هست. ممنون میشم ادیتی که باید روی این کد انجام بدم رو به بنده نشون بدید.

Imports System.IO

Imports Ionic.Zip





Using zipper As ZipFile = New ZipFile

            Dim filesz As Array

            filesz = System.IO.Directory.GetFiles((System.IO.Directory.  GetCurrentDirectory).ToString, "*.prn")

            zipper.AddFiles(filesz)

            zipper.Save(TextBox2.Text + "\data.zip")

        End Using

[gg2020]

دوست عزیز

Public Sub Folder_To_Zip(ByVal Passwors As String, ByVal Folder As String)

            Dim Ziper As New ZipFile

            Try

                Ziper.Password = Passwors

                Ziper.AddDirectory(Folder)

                Ziper.Save(Folder & ".zip")

            Catch ex As Exception

                MsgBox(ex.Message)

            End Try

        End Sub

من از این روش استفاده کردم و مشکلی که شما داشتید رو ندارم شما بهتره فولدر رو زیپ کنید من فایل رو تست نکردم