Entwickler-Ecke

Dateizugriff - existiert das Verzeichnis...


maze2k - Do 27.11.03 18:15
Titel: existiert das Verzeichnis...
Hi,
wie kann ich herausfinden ob ein bestimmtes Verzeichnis existiert?

Im Forum und in der Hilfe hab ich nichts gefunden dazu...


Henry - Do 27.11.03 18:30

Hi,
Versuch es mal mit

Delphi-Quelltext
1:
2:
3:
4:
If DirectoryExists('C:\Verzeichnis') then
Begin
 ...
End;

Ich denke das ist es was Du suchst


maze2k - Do 27.11.03 18:35

*lol* ich Depp,
genau danach hab ich in der Hilfe gesucht, es gibt ja auch fileexists...
aber irgendwie hab ich das überlesen ;)

thx *g*


Delete - Do 27.11.03 22:07

Wenn du ein kleines Programm schreiben willst (bspw. nonVCL oder ein Konsolentool), dann empfehle ich die API-Funktion "FindFirstFile", die sich entgegen dem Namen auch problemlos für Ordner benutzen lässt:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
function fileexists(const szFilename: string): boolean;
var
  Handle   : THandle;
  FindData : TWin32FindData;
begin
  Handle := FindFirstFile(pchar(szFilename),FindData);
  Result := (Handle <> INVALID_HANDLE_VALUE);

  if(Result) then Windows.FindClose(Handle);
end;

Ausprobieren. :)