Thema: Delphi Verzeichniss prüfen

Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
 
Delphi 11 Alexandria
 
#5

Re: Verzeichniss prüfen

  Alt 2. Feb 2004, 17:23
Moin Scrapt,

wobei DirectoryExists unter ME nicht immer funktioniert.

Mein Workaround dafür:

Delphi-Quellcode:
function DirectoryExists(const AsDir : string) : boolean;

var
  dwAttr : DWORD;

begin
  Result := false;
  dwAttr := GetFileAttributes(PChar(AsDir));
  if dwAttr = DWORD(-1) then exit;
  Result := (dwAttr and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY;
end;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat