Archiver working example

[padvou]

Dear all,
could somebody please give me a working example of this:

arc.ZipFiles((File.DirRootExternal & "/FrameOrders/", MysendDate & MysendTime & "os1.dat", File.DirRootExternal & "/FrameOrders/", MysendDate & MysendTime & "order.zip","OrderZip")

or this:

arc.AsyncZipFiles(File.DirRootExternal & "/FrameOrders/", MysendDate & MysendTime & "os2.dat", File.DirRootExternal & "/FrameOrders/", MysendDate & MysendTime & "order.zip","OrderZip")

What if i wanted to add multiple files?
Thank you

 

[padvou]

Anybody?
Or maybe anyone has something else to propose?

 

[Erel]

Do you get any error with your code?

 

[padvou]

Yes, it says that i 've not syntaxed the command correctly

 

[NJDude]

Try this:

Dim Zip As Archiver
Dim toZip() As String 'This array will contain all the files you want to zip

toZip = Array As String("File1.txt", "File2.txt", "File3.txt")

Zip.AsyncZipFiles(File.DirDefaultExternal & "/SomeDirectory/", toZip, File.DirDefaultExternal, "MyZipFile.zip", "Zip")

Then somewhere in your code:

Sub Zip_ZipDone(Success As Boolean, FilesInZip As Int)

    ToastMessageShow(Success & "  " & FilesInZip, False)

End Sub