Delphi Database, Delphi Components from ComponentAce

TZipForge.MoveFiles
TZipForge Example

Top

Moves files to the archive.

procedure MoveFiles; overload;
procedure MoveFiles(
         FileMask:    String;
         SearchAttr:    Word = faAnyFile-faDirectory;
         ExclusionMask: String = ''); overload;

Description
Use MoveFiles to move files to the open archive file. MoveFiles deletes all files after they will be added to the archive. If you need to add files to the archive without deleting source files, use AddFiles instead of MoveFiles. If Options.Recurse is set to True, MoveFiles will search files recursively.

MoveFiles variant without parameters uses FileMasks, ExclusionMasks and Options.SearchAttr to specify search conditions and to exclude files from move operation.

The FileMask parameter is the directory and file name mask, including wildcard characters. For example, 'C:\TEST\*.*' specifies all files in the C:\TEST directory. All files that meets FileMask and SearchAttr will be moved to the archive.

The SearchAttr parameter specifies the special files to include in addition to all normal files. This parameter is similar to the Attr parameter in FindFirst function from SysUtils unit. You can set it to any combination of faReadOnly, faHidden, faSysFile, faVolumeID, faDirectory, faArchive constants defined in SysUtils or value faAnyFile meaning that any file meets search condition.

The ExclusionMask specifies files to be excluded from move operation.

Note: If you need to move certain files without compression set NoCompressionMasks property. If some errors occurs an exception will be raised. Write an OnProcessFileFailure event handler to perform your own error handling.

Dec 26, 2024