Navigation Menu Search PhysiologyWeb
PhysiologyWeb Logo Search PhysiologyWeb
   
— share —
Share on Facebook    Share on X    Share on LinkedIn    Share on Pinterest    Share on Reddit    Email    Copy URL
function IsDirectory(FullFileName: String): Boolean;
var
TheAttributes: Integer;
begin
IsDirectory := False;

TheAttributes := 0;

If FullFileName <> '' then
begin
TheAttributes := FileGetAttr(FullFileName);
If ((TheAttributes and faDirectory) = faDirectory) then IsDirectory := True;
end;
end;




Posted: Saturday, May 13, 2023
Last updated: Tuesday, March 18, 2025
— share —
Share on Facebook    Share on X    Share on LinkedIn    Share on Pinterest    Share on Reddit    Email    Copy URL