Code: Select all
aTemp := DIRECTORY( BackUp.T_SourceFolder.Value + "\*.*" )
AEVAL( aTemp, { | a1 | AADD( aFilesToBackup, a1[ 1 ] ) } )
IF EMPTY( aFilesToBackup )
MsgStop( "No file found to backup !", " ERROR !" )
ELSE
BackUp.ProgressIndicator.RangeMax := len(aFilesToBackup)
BackUp.ProgressIndicator.Value := 0
COMPRESS aFilesToBackup ;
TO cArchiveName ;
BLOCK {|cFile,nPos| BackUp.ProgressIndicator.Value := nPos } ;
OVERWRITE
lBackupStatus := .t.
msgbox("Backup created successful!")
Code: Select all
aTemp := DIRECTORY( BackUp.T_SourceFolder.Value + "\*.*" )
AEVAL( aTemp, { | a1 | AADD( aFilesToBackup, BackUp.T_SourceFolder.Value + "\"+ a1[ 1 ] ) } )
IF EMPTY( aFilesToBackup )
MsgStop( "No file found to backup !", " ERROR !" )
ELSE
BackUp.ProgressIndicator.RangeMax := len(aFilesToBackup)
BackUp.ProgressIndicator.Value := 0
COMPRESS aFilesToBackup ;
TO cArchiveName ;
BLOCK {|cFile,nPos| BackUp.ProgressIndicator.Value := nPos } ;
OVERWRITE
lBackupStatus := .t.
msgbox("Backup created successful!")
The problem is, that version does not compress subdirectories of selected location