procedure CopyFile(FileFrom, FileTo :string);
|
скопировать файл "FileFrom" в "FileTo";
|
|
|
procedure MoveFile(FileFrom, FileTo :string);
|
перенести файл из "FileFrom" в "FileTo";
|
|
|
procedure DeleteFile(FileName :string);
|
удалить файл "FileName";
|
|
|
procedure CopyFiles(PathFrom, PathTo, Mask :string);
|
скопировать файлы из папки "PathFrom" в папку "PathTo" по маске "Mask";
|
|
|
procedure MoveFiles(PathFrom, PathTo, Mask :string);
|
перенести файлы из папки "PathFrom" в папку "PathTo" по маске "Mask";
|
|
|
procedure DeleteFiles(FilesPath, Mask :string);
|
удалить файлы из папки "FilesPath" по маске "Mask";
|
|
|
function FileExists(FileName:string) :boolean;
|
существует ли указанный файл? "True" - да, "False" - нет;
|
|
|
procedure RenameFile(FileName1, FileName2);
|
переименовать файл "FileName1" в "FileName2";
|
|
|
procedure CreateFolder(FolderName :string);
|
создать папку с именем "FolderName";
|
|
|
function ForceFolders(FolderName :string) :boolean;
|
создать папку с необходимыми подкаталогами. "True" - если создание прошло успешно, "False" - попыика создания не удалась;
|
|
|
function RemoveFolder(FolderName :string) :boolean;
|
удалить папку "FolderName". Если папка удалена - "True", если нет - "False";
|
|
|
function RenameFolder(FolderName1, FolderName2 :string) :boolean;
|
переименовать папку "FolderName1" в "FolderName2". Если переименование прошло успешно - функция возвращает "True", если нет - "False";
|
|
|
function FileMaskEquate(FileName, Mask :string) :boolean;
|
Соответствует ли файл "FileName" заданной маске "Mask"? Если да - "True", нет - "False";
|
|
|
procedure CalcFileCRC32(FileName :string; var CRCvalue: Cardinal; var TotalBytes: Int64; var error: Word);
|
процедура вычисляет контрольную сумму файла "FileName" (CRC32) и помещает ее в переменную "CRCvalue". В переменную "TotalBytes" заносится размер файла в байтах, в "error" - код ошибки, если таковая была;
|
|
|
function FileDeny(FileName :string) :boolean;
|
если файл "FileName" занят каким-либо приложением, функция возвращает "True";
|
|
|
function CurrentFolder :string;
|
возвращает текущий каталог;
|
|
|
function SetCurrentFolder(FolderName :string) :boolen;
|
установить "FolderName" текущим каталогом. Если попытка не удалась - функция возвращает "False";
|
|
|
function FolderExists(FolderName :string) :boolean;
|
Если папка "FolderName" существует - функция возвращает "True", иначе "False";
|
|
|
function FileSize(FileName :string) :int64;
|
функция возвращает размер указанного файла в байтах. Если файла не существует или он не доступен, функция возвращет "-1";
|