Verzeichnis auf Existenz prüfen?

[AlexII]

Hallo,

hab folgendes Problem: ich prüfe wie folgt auf Existenz einer Datei:

Delphi-Quellcode:

if FileExists(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\original.txt') then
begin
ListBox1.Items.LoadFromFile(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\original.txt');
end else ListBox1.Items.LoadFromFile('ersatz.txt'); (hier wird die Datei aus dem Programmverzeichnis geladen)

der Code funktioniert soweit gut, aber nur! wenn das Verzeichnis "UserAppDataDir + AppDataRootDir + AppDataProjectDir" existieren. Wir das Programm das erste mal am PC gestartet gibt es auch logischerweise noch nicht, aber dann funkt auch mein Code nicht und beim Erststart wird die ersatz.txt nicht geladen.

Wie prüfe ich also auf Existenz eines Ordners bzw. Verzeichnisses?

[Die Muhkuh]

Du könntest die Ordner mit ForceDirectories erstellen.

Ansonsten DirectoryExists.

[shmia]

Und immer schön lokale Zwischenvariablen verwenden!!
Das hilft beim Debuggen und mancht den Code klarer und besser.

Delphi-Quellcode:

var
  filename : string;
begin
  filename := UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\original.txt';
  // sollte nun in filename ein Backslash fehlen oder zuviel sein, fällt das beim Debuggen sicher auf
  ...

[himitsu]

Zitat:

(hier wird die Datei aus dem Programmverzeichnis geladen)

nein, diese wird nur rein zufällig aus dem Programmverzeichnis geladen.

[AlexII]

Hab das jetzt so gelöst

Delphi-Quellcode:

if DirectoryExists(UserAppDataDir + AppDataRootDir + AppDataProjectDir) then
begin
showmessage('Ja');
end else showmessage('Nein');

wenn das Verzeichnis existiert wird "Ja" angezeigt, wenn nicht kommt die Meldung "Nein" gar nicht, wer weiß wieso?

[AlexII]

Zitat von himitsu:

Zitat:

(hier wird die Datei aus dem Programmverzeichnis geladen)

nein, diese wird nur rein zufällig aus dem Programmverzeichnis geladen.

Wieso "rein zufällig"?

[himitsu]

weil das aktuelle Vereichnis nicht unbedingt das Programmverzeichnis sein muß.

[AlexII]

Zitat von himitsu:

weil das aktuelle Vereichnis nicht unbedingt das Programmverzeichnis sein muß.

Und in welchen Fällen kann das kein Programmverzeichnis sein?

Wie komme ich dann an das Programmverzeichnis? Gibt' dafür ein Befehl oder muss man ne Funktion schreiben?

[AlexII]

Hab schon gefunden

Path := ExtractFilePath(ParamStr(0)); aber wieso funkt der Code im Post #5 nicht das verstehe ich nicht.

[DeddyH]

Und ich verstehe nicht, wieso Du Dir Dein Verzeichnis immer noch ständig neu zusammenbastelst. Ich hatte Dir doch erklärt, wie das mit Konstanten und privaten Feldern besser geht.