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

[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


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