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

[javid_debugger]

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

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




Sub Zip_All_Files_in_Folder()
FolderName = "D:\a\"
FileNameZip = "D:\a.zip"
Open FileNameZip For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1
Dim oApp As New Shell
oApp.NameSpace(FileNameZip).CopyHere oApp.NameSpace(FolderName).Items

MsgBox "Finish !"
End Sub


موقع زیپ کردن پنجره Compresing نمایش داده میشه . من میخوام نمایش داده نشه.می خوام کدش به همین سادگی باشه.چند خط بیشتر نباشه و نیازی به هیچ ActiveX نداشته باشه. ممنون

[Tasiyan]

http://barnamenevis.org/forum/showthread.php?t=172706&highlight=zip

[javid_debugger]

دوست عزیز اقای Saddad این لینک رو خودم قبلا دیده بودم.گفتم بدون استفاده از کامپوننت در ضمن این کامپوننتی که اونجا بود اصلا طرز استفاده از اون نبود

[javid_debugger]

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