Hi Michel,

I don't use this control but Object Browser shows that it has OnDiskNeeded Event. My guess is that it fires when next diskette is required.

DEFINE CLASS myclass AS session OLEPUBLIC

	IMPLEMENTS _IArchiveEvents IN "C:\SAWZIPNG\SAWZIPNG.DLL"

	PROCEDURE _IArchiveEvents_OnAdd(filename AS STRING, soFar AS Number, ToDo AS Number, Cancel AS LOGICAL @) AS VOID;
 				HELPSTRING "Fired when a file is added to the archive"
	* add user code here
	ENDPROC

	PROCEDURE _IArchiveEvents_OnExtract(filename AS STRING, soFar AS Number, ToDo AS Number, Cancel AS LOGICAL @) AS VOID;
 				HELPSTRING "Fired when a file is extracted"
	* add user code here
	ENDPROC

	PROCEDURE _IArchiveEvents_OnDelete(filename AS STRING, soFar AS Number, ToDo AS Number, Cancel AS LOGICAL @) AS VOID;
 				HELPSTRING "Fired when a file is deleted"
	* add user code here
	ENDPROC

	PROCEDURE _IArchiveEvents_OnStore(filename AS STRING, soFar AS Number, ToDo AS Number, Cancel AS LOGICAL @) AS VOID;
 				HELPSTRING "Fired when a file is stored"
	* add user code here
	ENDPROC

	PROCEDURE _IArchiveEvents_OnDiskNeeded(disk AS Number, Cancel AS LOGICAL @) AS VOID;
 				HELPSTRING "Fired when a disk is needed"
	* add user code here
	ENDPROC

ENDDEFINE

>Freeware Sawzip now allows disk spanning (SawzipNG)
>See http://users.skynet.be/saw
>
>I got this far. It works with backing up to the harddrive but disk spanning will fill the first disk then "stall".
>
>I figured out when it appears to stall, removing then adding another disk continues the process & renumbers the disk.
>There's no way I would trust an end user to run this way.
>
>Any ideas anyone???
>
>This is the code:

>LOCAL cZipfile, cBackupPath,cRestorePath, cMask
>cZipfile =   "a:\"+ SUBSTR(SYS(2015), 4)  + ".zip"
>
>cMask = "*.*"
>cBackupPath = GETDIR("C:\","Select directory to backup","BACKUP DIRECTORY?",64)
>cRestorePath = GETDIR("C:\","Select where to restore","RESTORE DIRECTORY?",64)
>IF !DIRECTORY(cBackupPath) OR !DIRECTORY(cRestorePath)
>    MESSAGEBOX("Both a backup directory and a restore directory must be selected",16,"Missing directory")
>    RETURN
>ENDIF
>
>
>WAIT WINDOW "BACKING UP FILES ...  ONE MOMENT PLEASE" NOWAIT
>oSAWArchive = CREATEOBJECT("SAWZipNG.Archive")
>oSAWArchive.Create(cZipfile,1)  && 1 allows disk spanning
>Local lcPath, cZippedFile, nProgressValue, nProgressMax
>cZippedFile = Sys( 2000,cBackupPath+cMask)
>nProgressMax=ADIR(aryFiles,cBackupPath+cMask)
>RELEASE aryFiles
>nProgressValue= 1
>oSAWArchive.TempPath=sys(2023)  && Temp directory for spanning
>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  && display progress in taskbar
>    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
>
>RETURN