mohammadriano
سه شنبه 10 مرداد 1391, 01:25 صبح
سلام
بعد از ساخت یک New RAR جدید و اظافه کردن آن به برنامه
چه طور یک فایل را در، New RAR که ساختیم کپی کنیم
البته یک تابع دوستان معرفی کردند که تابع خوبی هست ، اما می خوام هجمش بیاد پایین تر
تابع دوستان
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
تابع صرفاً برای نمایش بود
البته تکرار می کنم New Rar را در نسخ های جدید میسازم چون حافظه رو بهتر مدیریت می کنه
بعد از ساخت یک New RAR جدید و اظافه کردن آن به برنامه
چه طور یک فایل را در، New RAR که ساختیم کپی کنیم
البته یک تابع دوستان معرفی کردند که تابع خوبی هست ، اما می خوام هجمش بیاد پایین تر
تابع دوستان
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
تابع صرفاً برای نمایش بود
البته تکرار می کنم New Rar را در نسخ های جدید میسازم چون حافظه رو بهتر مدیریت می کنه