zip/unzip in vb6

[123qwe]

سلام دوستان
من یه مشکل دارم ، اونم اینه که میخوام توی vb یه فولدر را زیپ کنم و بعد هم بتونم انزیپ کنم ، چنتا کد گرفتم اما فقط فایل را زیپ میکنه و یا محتویات یک فولدر را زیپ میکنه و اگه داخل اون فولدر یک زیرفولدر باشه زیپ نمیشه .

قصد من اینه که فولدر و تمام محتویاتش پک بشن مهم نیست zip باشه یا exe ,dll ,rar فقط بتونه فولدر و تمام زیرفلدرها و فایل ها را پک کنه .

کسی همچین کدی را داره یا میتونه بنویسه ؟

[relax_cp]

من يك ocx دارم ولي نمي دونم كه اين كارو ميكنه يا نه:

[123qwe]

ممنون دوست عزیز ولی فکر کنم این فقط فایل را زیپ میکنه و نمیتونه فولدر و زیرفولدر ها را زیپ کنه .
درسته؟

[alih110]

بفرما دوست عزیز اینم سورسی که میخواستی . خودم هم تستش کردم درست کار میکنه .

[123qwe]

بله دوست عزیز این به چیزی که من میخوام خیلی نزدیکه ، من خودم هم اینو دیده بودم ، اما عیبش اینه که نمیتونه فایل هایی که داخل زیرفولدرها هستن را زیپ کنه .
بازم ممنون.

[123qwe]

کسی همچین کدی را بلد نیست؟