فشرده سازی با لایبری Archiver7z

[shahan148 28]

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

 

من با کد زیر می خوام یک فایل فشرده کنم هر کاری میکنم خود فایل را فشرده سازی (7z)  نمی کنه ==== لطفا هر کسی می دونه راهنمایی کنه

Dim Arc As Archiver7z

	Dim Const ArchiveFolder As String = File.DirRootExternal & "/TestArchiver/" & "1.apk"

	Dim Files As Map
	Files.Initialize

	'Compresses the listed files with every preset
	Arc.ExecutionMode = Arc.EXECMODE_ASYNCHRONOUS

		Arc.CompressTo7z(Files,ArchiveFolder & ".7z", 1, ArchiveFolder)

[shahrokhnazari 110]

ariazipکتابخانه   ariazip   واست عالی اینکارو انجام میده براحتتتتتتتتتتتتتتتتتتتتتتتتتتتتی

[shahan148 28]

ariazipکتابخانه   ariazip   واست عالی اینکارو انجام میده براحتتتتتتتتتتتتتتتتتتتتتتتتتتتتی

 

 

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

 

[shahan148 28]

پیداش کردم

 

http://answercenter.ir/topic/12389-%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-archiver7z-%D8%B2%DB%8C%D9%BE-%D9%88-%D8%A7%D9%86%D8%B2%DB%8C%D9%BE/