اموزش کار با کامپونت XceedZip

[isaac23]

سلام دوستان و اساتید محترم

می خواستم بگم اگه کسی در این مورد آموزش و یا راهنمایی و یا سورسی در این زمینه داره اینجا قرار بده
من در مسیر زیر چند فایل اکسس دارم می خوام اینا ها رو از طریق XceedZip فشرده کنم

C:\CHEk

فایل های من در این مسیر قرار داره و می خوام فقط این چند فایل اکسس فشرده بشه و بقیه محتوای پوشه فشرده نشه ممنون میشم راهنمایی کنید ..

Dim ResultCode As xcdError
With XceedZip1

.FilesToProcess = App.Path & "\Dbase.mdb"
.ZipFilename = App.Path & "\s0s.Zip"
.EncryptionPassword = "123"
.License "17055475153342401579512r612895AS"
ResultCode = .Zip
If ResultCode = xerNotLicensed Then
MsgBox 1

End If
End With

[vbhamed]

سلام
باید فایلهای مورد نظر رو به پارامتر FilesToProcess اضافه کنید
.FilesToProcess = "file1.mdb" & vbCrlf
.FilesToProcess = .FilesToProcess & "file2.mdb" & vbCrlf
.FilesToProcess = .FilesToProcess & "file3.mdb" & vbCrlf

[samiasoft]

دوستان من کامپونت Xceed Zip رو از کجا بایستی دانلود کنم . با جستجویی که انجام دادم نسخه رایگان شو پیدا نکردم.

به نظر شما پس بهترین طریقه کار با فایل های فشرده زیپ یا رار همین کامپونت هست ؟

نظرتون در مورد این کد رو بهم میگید ؟ این الان فایل فشرده رو چطوری درست میکنه؟ منظورم اینه که پیش نیازش ایا وینرار هست یا اینکه نه

Private Sub Command1_Click()
CreateEmptyZip "d:\testzip.zip"


With CreateObject("Shell.Application")
.NameSpace("d:\testzip.zip").CopyHere "d:\DataFiles"
' .NameSpace("c:\testzip.zip").CopyHere
' .NameSpace(FolderName).items 'use this l
' ine if we want to zip all items in a fol
' der into our zip file
End With
' All done!
End Sub


Public Sub CreateEmptyZip(sPath)
Dim strZIPHeader As String
strZIPHeader = Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0) ' header required to convince Windows shell that this is really a zip file


With CreateObject("Scripting.FileSystemObject")
.CreateTextFile(sPath).Write strZIPHeader
End With
End Sub