|
|
|
غوره نشده مویز شده
 
گروه: کاربران
آخرین بازدید: دیروز 00:46:14
پست ها: 87,
بازدید ها: 412
|
|
سلامکسی میدونه چطور میشه یه سری فایل رو با VB فرستاد تو یه Zip Folder ؟
 رهگذار عمر راهیست در فضایی روشن و تاریک
|
|
|
|
|
Most Valuable Professional
گروه: مدیر انجمن (ویژه 2)
آخرین بازدید: جمعه 21 اسفند 1388 - 9:38 صبح
پست ها: 1,555,
بازدید ها: 2,735
|
|
hamid_80386 (جمعه 12 مهر 1387 - 9:40 بعدازظهر)
سلام
کسی میدونه چطور میشه یه سری فایل رو با VB فرستاد تو یه Zip Folder ؟
بصورت زیر :
PFN Code
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
درضمن یکی از دوستان کنترلی برای این کار در این تاپیک معرفی کرده است
|
|
|
|
|
غوره نشده مویز شده
گروه: کاربران
آخرین بازدید: دیروز 00:46:14
پست ها: 87,
بازدید ها: 412
|
|
fmh1 (شنبه 13 مهر 1387 - 11:30 صبح)
[quote]hamid_80386 (جمعه 12 مهر 1387 - 9:40 بعدازظهر)
حالا برای UnZip کردنشون چیکار کنم؟
رهگذار عمر راهیست در فضایی روشن و تاریک
|
|
|
|
|
Most Valuable Professional
گروه: مدیر انجمن (ویژه 2)
آخرین بازدید: جمعه 21 اسفند 1388 - 9:38 صبح
پست ها: 1,555,
بازدید ها: 2,735
|
|
|
از کنترلی که معرفی شده استفاده کنید
|
|
|
|
|
غوره نشده مویز شده
گروه: کاربران
آخرین بازدید: دیروز 00:46:14
پست ها: 87,
بازدید ها: 412
|
|
fmh1 (یکشنبه 14 مهر 1387 - 12:56 بعدازظهر)
از کنترلی که معرفی شده استفاده کنید
File not found میده! نمیشه دانلودش کرد متاسفانه!
رهگذار عمر راهیست در فضایی روشن و تاریک
|
|
|
|
|
Most Valuable Professional
گروه: مدیر انجمن (ویژه 2)
آخرین بازدید: جمعه 21 اسفند 1388 - 9:38 صبح
پست ها: 1,555,
بازدید ها: 2,735
|
|
برای آنزیپ کردن از کنترل زیر استفاده کنید
دانلود فایل : کنترل UnZip
|
|
|
|
|
تازه اول راهه
گروه: کاربران
آخرین بازدید: جمعه 29 خرداد 1388 - 11:28 بعدازظهر
پست ها: 1,
بازدید ها: 2
|
|
|
سلام دوست عزیز
[url=http://www.vbaccelerator.com/home/vb/code/libraries/Compression/Zipping_Files/VB6_Zip_Sample_Project.asp][/url]
|
|
|
|