フォルダが存在するかどうかをチェックします。
function fnFolderExists(var strFolderPath:string):boolean; begin fnFolderExists := DirectoryExists(strFolderPath); end;
function fnFolderExists(var strFolderPath:string):boolean;
begin
fnFolderExists := DirectoryExists(strFolderPath);
end;