Class TBackup (unit Project)

Inherits from

TObject

Constructors


constructor Create;

Init/Exit procedures


Functions

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 *******************************************************

Properties

property Archive : boolean


property Pattern : string


property Source : string

public properties

property Target : string


Events

Variables

FAnyError : boolean;


FArchive : boolean;


FAttribs : Integer;


FPattern : string;


FSource : string;


FSubDirs : boolean;


FTarget : string;



Constructors


constructor Create;

Init/Exit procedures


Functions


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 *******************************************************


Properties


property Archive : boolean


property Pattern : string


property Source : string

public properties


property Target : string


Events


Variables


FAnyError : boolean;


FArchive : boolean;


FAttribs : Integer;


FPattern : string;


FSource : string;


FSubDirs : boolean;


FTarget : string;