أريد أداة أو كود لضغط مجلد بملفاته ومجلداته الفرعية بأي صيغة

جرب هذة

GZip class

مشكور اخ vbm على المساعدة...

ولكن الكلاس خاص بضغط الملفات بشكل فردي

انا اريد ضغط مجلد بفروعة ...

شكرا لك اخي على المساعدة وجزاك الله الجنة ...

جرب هذة الروابط

http://www.codeproject.com/KB/cs/compressw...;select=1459781

http://www.vbforums.com/showthread.php?t=344753

http://www.icsharpcode.net/OpenSource/Shar...ib/Default.aspx

شكرا لك اخي الغالي ...

جربت SharpZipLib_0855 ولكنها ماضبطت معي لاني استخدم VB.NET2008 والمكتبة قديمة بعض الشيء وخاصة بFWork2.0 ومااقدم ...

حصلت على بعض الافكار من الروابط منها استخدام الCommand Line لاحد البرنامجين WinZip او WinRAR

وقررت ان استخدم هذه الطريقة مع WinRAR لانها تؤدي غرضي ... واستخدمت الكود التالي

Dim cmd, rarPath, archivePath, targetPath As String
rarPath = "D:\Program Files\WinRAR\rar"
archivePath = "D:\test.rar"
targetPath = "D:\AppServ\MySQL\data"

cmd = Replace("$rarPath a -en $archivePath $targetPath", "$rarPath", rarPath)
cmd = Replace(cmd, "$archivePath", archivePath)
cmd = Replace(cmd, "$targetPath", targetPath)
Shell cmd

* ملاحظة الكود السابق كتبته في VB6 على عجلة وان شاء الله اكتبة مرة اخرى في VB.NET

تحياتي لكم على امل الحصول على بديل افضل لجميع الاحتمالات