General information
Category:
Third party products
I'm getting closer...
I get this error now.
OLE IDispatch exception code 0 from Sawzipng.archive.1;
Action aborted safely
The error occurs in PROCEDURE _IArchiveEvents_OnAdd but my message appears.
If I select to ignore the error, the file.
It lets me ignore about 10 times, adding each file then the process quits.
Removing my message still causes the error.
Declaring the variables filename,sofar,todo,cancel also does nothing.
Removing PROCEDURE _IArchiveEvents_OnAdd prevents the object from instantiating.
Any more "hints" ??? -thanks
* I added this new line:
oEvents=NEWOBJECT("myclass")
oSAWArchive = CREATEOBJECT("SAWZipNG.Archive")
* and this line too
=EVENTHANDLER(oSAWArchive ,oEvents)
oSAWArchive.Create(cZipfile,1) && Create(cZipfile,1) && 1 allows spanning
Local lcPath, cZippedFile, nProgressValue, nProgressMax
PUBLIC LcSAWFile
cZippedFile = Sys( 2000,cBackupPath+cMask)
nProgressMax=ADIR(aryFiles,cBackupPath+cMask)
RELEASE aryFiles
nProgressValue= 1
oSAWArchive.TempPath=SYS(2023)
Do While !Empty( cZippedFile )
LcSAWFile = cBackupPath+cZippedFile
nProgressComplete = INT(nProgressValue/nProgressMax*100)
sMessage = "BACKING UP: " + TRANSFORM(nProgressComplete)+"% " + Replicate("|",INT(nProgressComplete/2))
set message to sMessage
oSAWArchive.Addfile(lcSAWFile)
LcSawFile = ""
cZippedFile = Sys( 2000,cBackupPath+cMask,1)
nProgressValue = nProgressValue + 1
Enddo
oSAWArchive.close
oSAWArchive = .NULL.
WAIT CLEAR
MESSAGEBOX("Backup Completed")
set message to
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only