|
|
|
غوره نشده مویز شده
 
گروه: کاربران
آخرین بازدید: دیروز 14:42:22
پست ها: 78,
بازدید ها: 354
|
|
سلامکسی میدونه چطور میشه یه سری فایل رو با VB فرستاد تو یه Zip Folder ؟
 رهگذار عمر راهیست در فضایی روشن و تاریک
|
|
|
|
|
Most Valuable Professional
گروه: مدیر انجمن (ویژه 2)
آخرین بازدید: دیروز 16:52:00
پست ها: 1,518,
بازدید ها: 2,469
|
|
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
درضمن یکی از دوستان کنترلی برای این کار در این تاپیک معرفی کرده است
|
|
|
|
|
غوره نشده مویز شده
گروه: کاربران
آخرین بازدید: دیروز 14:42:22
پست ها: 78,
بازدید ها: 354
|
|
fmh1 (شنبه 13 مهر 1387 - 11:30 صبح)
[quote]hamid_80386 (جمعه 12 مهر 1387 - 9:40 بعدازظهر)
حالا برای UnZip کردنشون چیکار کنم؟
رهگذار عمر راهیست در فضایی روشن و تاریک
|
|
|
|
|
Most Valuable Professional
گروه: مدیر انجمن (ویژه 2)
آخرین بازدید: دیروز 16:52:00
پست ها: 1,518,
بازدید ها: 2,469
|
|
|
از کنترلی که معرفی شده استفاده کنید
|
|
|
|
|
غوره نشده مویز شده
گروه: کاربران
آخرین بازدید: دیروز 14:42:22
پست ها: 78,
بازدید ها: 354
|
|
fmh1 (یکشنبه 14 مهر 1387 - 12:56 بعدازظهر)
از کنترلی که معرفی شده استفاده کنید
File not found میده! نمیشه دانلودش کرد متاسفانه!
رهگذار عمر راهیست در فضایی روشن و تاریک
|
|
|
|
|
Most Valuable Professional
گروه: مدیر انجمن (ویژه 2)
آخرین بازدید: دیروز 16:52:00
پست ها: 1,518,
بازدید ها: 2,469
|
|
برای آنزیپ کردن از کنترل زیر استفاده کنید
دانلود فایل : کنترل UnZip
|
|
|
|