Re: Backup & Restore Dbf Files
Posted: Wed Mar 28, 2012 12:58 pm
Problem lays in these lines:
They should be:
Another way is to change current dir to folder being compressed.
The problem is, that version does not compress subdirectories of selected location
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