چجوری میتونم یک وین زیپ بسازم؟ میشه کمکم کنید
چجوری میتونم یک وین زیپ بسازم؟ میشه کمکم کنید
سلام ، پس از انتخاب ردیف فایل shell32.dll با نام microsoft shell controls and automation در قسمت referenses در منوی project
زیر برنامه زیر را در سورس کپی کن و پس از فراخوانی آن و دادن مقدار به FolderName به جای نام پوشه و دادن مقدار به FileNameZip به جای نام فایل زیپ ، آن پوشه را زیپ کنی
(Sub Zip_All_Files_in_Folder(ByVal FolderName As String, ByVal FileNameZip As String
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
End Sub
مرسی ولی میشه یک پروژه بدین آخه کار نکرد یا توضیح بیشتر بدین
باتشكر از شما اگر مي توانيد يك نمونه بگذاريد
سلام
با اجازه جناب Asemane Haftom، بعد از اضافه کردن کامپوننت "Microsoft Shell Controls And Automation" و قرار دادن تابع پست2 در برنامه با کدی مشابه زیر از آن استفاده میکنیم:
Private Sub Command1_Click()
Zip_All_Files_in_Folder "D:\mydir", "d:\1.zip"
End Sub
موفق باشید
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
سلام
خیلی ممنون بابت تابع
کامپوننت رو Add کردم اما
من به یک مشکل برخورد کردم
اگه ممکن هست راهنمایی کنید
WinZip.jpg
مشکل خط قرمز رنگ!
این هم همه کد :
Option Explicit
Sub Zip_All_Files_in_Folder(ByVal FolderName As String, ByVal FileNameZip As String)
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
End Sub
Private Sub Command_Click()
Zip_All_Files_in_Folder "J:\cd label", "C:\1.zip"
End Sub
سلام .
مشكل قرار گرفتن دستور Close در انتهاي دستور Print بود .
Option Explicit
Sub Zip_All_Files_in_Folder(ByVal FolderName As String, ByVal FileNameZip As String)
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
End Sub
Private Sub Command_Click()
Zip_All_Files_in_Folder "J:\cd label", "C:\1.zip"
End Sub
موفق باشيد .
سلام
من کد پست بالا را کپی کردم ولی جواب نگرفتم، اگه میشه یه برنامه برا دانلود بزارید.
حالا یه سوال:
چجوری میشه روی یه فایل زیپ پسورد گذاشت و یا اطلاعات درون یه فایل زیپ پسورد دار را فراخوانی کرد؟
با تشکر
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
آخرین ویرایش به وسیله محسن واژدی : سه شنبه 14 شهریور 1391 در 13:10 عصر دلیل: ویرایش ضمیمه
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
سلام خسته نباشيد من نمونه رو تست كردم كار كرد آيا امكانش هست برعكسش رو بذاري كه بتونيم از حالت زيپ هم خارج كنيم ممنون
سلام علیکم، ممنوننوشته شده توسط saeedharati
دوباره نمونه ویرایش شده پست 11 را بررسی کنید
موفق باشید
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.
برای پسورد گذار ی روی فایل چه کار کنیم؟