Verzeichniss prüfen

[sCrAPt]

HiH
Wie kann man prüfen ob ein bestimmtes Verzeichniss existiert?

, sCrAPt

[mirage228]

Delphi-Quellcode:

uses
  SysUtils

// ...

if DirectoryExists('C:\Irgendwas\') then
  // mach was

mfG
mirage228

[sCrAPt]

http://www.og4all.de/sip/Danke.gif

[mirage228]

Zitat von sCrAPt:

http://www.og4all.de/sip/Danke.gif

Bitte sehr ^^

[Christian Seehase]

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;