Information générale
Catégorie:
Produits tierce partie
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
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement