Class TBackup (unit Project) |
Inherits from
TObject
constructor Create;
- Init/Exit procedures
function Execute:boolean;
Execution procedure
procedure ForceDirectories(Dir: string);
procedure Free;
function QualifyPath(path:string):string;
Toolbox procedures Pre : Source and Target must be qualified before using this
function.
procedure CopyArchiveFiles(Path,Pattern:string);
procedure CopyFiles(Path,Pattern:string);
case
procedure CopyMatchingFiles(Path:string);
function FileCopy(Input,output:string;Size:LongInt):boolean;
Recursive algoritm which creates subdirs } { copied from Delphi 2.
function GetTargetPath(SourcePath:string):string;
copy single file Allow Windows handling.
procedure ScanFolders(Path:string);
Expands path and adds driveletters etc.
procedure SetPattern(value:string);
procedure SetSource(value:string);
procedure SetTarget(value:string);
* TBackup definition *******************************************************
property Archive : boolean
property Pattern : string
property Source : string
public properties
property Target : string
FAnyError : boolean;
FArchive : boolean;
FAttribs : Integer;
FPattern : string;
FSource : string;
FSubDirs : boolean;
FTarget : string;
constructor Create;
Init/Exit procedures
function Execute:boolean;
Execution procedure
procedure ForceDirectories(Dir: string);
procedure Free;
function QualifyPath(path:string):string;
Toolbox procedures
Pre : Source and Target must be qualified before using this
function.
post: Result is quarentied to exist and be qualified.
procedure CopyArchiveFiles(Path,Pattern:string);
procedure CopyFiles(Path,Pattern:string);
case
procedure CopyMatchingFiles(Path:string);
function FileCopy(Input,output:string;Size:LongInt):boolean;
Recursive algoritm which creates subdirs } { copied from Delphi 2.0, copyrights Borland
function GetTargetPath(SourcePath:string):string;
copy single file
Allow Windows handling...
procedure ScanFolders(Path:string);
Expands path and adds driveletters etc. then } { adds a trailing backslash to a string if needed
procedure SetPattern(value:string);
procedure SetSource(value:string);
procedure SetTarget(value:string);
* TBackup definition *******************************************************
property Archive : boolean
property Pattern : string
property Source : string
public properties
property Target : string
FAnyError : boolean;
FArchive : boolean;
FAttribs : Integer;
FPattern : string;
FSource : string;
FSubDirs : boolean;
FTarget : string;