|
Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
Re: DirectoryExists für Delphi 5
27. Mär 2007, 19:55
Delphi-Quellcode:
function DirectoryExists(const Directory: string): Boolean;
var
Code: Integer;
begin
Code := GetFileAttributes(PChar(Directory));
Result := (Code <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0);
end;
Michael
Ein Teil meines Codes würde euch verunsichern.
|