Работа с файлами и каталогами


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";