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:

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"? :gruebel:

[himitsu]

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

[AlexII]

Zitat:

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

Delphi-Quellcode:

Path := ExtractFilePath(ParamStr(0));

aber wieso funkt der Code im Post #5 nicht das verstehe ich nicht. :gruebel:

[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.

[AlexII]

Zitat:

Zitat von 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.

Ja das werde ich ändern, ist kein Problem, das Problem ist wieso die Fehlermeldung nicht kommt, wenn das Verzeichnis nicht existiert. :gruebel:

[DeddyH]

Der Code ist aber eigentlich in Ordnung. Steht da vielleicht noch was anderes dazwischen?

[AlexII]

Ne nix dazwischen, eins zu eins kopiert.

Das wird im Ereignis TForm1.FormShow aufgerufen, vllt liegt hier der Fehler? :gruebel:

[DeddyH]

Daran kann es nicht liegen. Zeig mal den ganzen Code vom FormShow.

[AlexII]

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var update: Integer;
    Ini   : TIniFile;
    UserAppDataDir, ProgPath: String;
begin
  UserAppDataDir := GetSpecialFolder(CSIDL_LOCAL_APPDATA);
  if FileExists(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\Config.ini') then
  begin
    Ini := TIniFile.Create(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\Config.ini');
  try
    ComboBox1.ItemIndex := Ini.ReadInteger('Default', 'Channel', 1);
  finally
    ini.free;
  end;

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

ProgPath := ExtractFilePath(ParamStr(0));

if FileExists(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\original.txt') then
begin
ListBox1.Items.LoadFromFile(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\original.txt');
end else ListBox1.Items.LoadFromFile(ProgPath + 'ersatz.txt');
end;

PS. Das mit deinem Vorschlag werde ich noch umsetzen.

[DeddyH]

Hab ich mich verzählt oder fehlt da ein "end;"?

[AlexII]

Hab wahrscheinlich nicht mitkopiert, aber das Programm läuft, also es fehlt nichts. Wie gesagt "Ja" wird ausgegeben, dann lösche ich den Ordner "AppDataProjectDir" und die Meldung "Nein" springt nicht auf.

[DeddyH]

Natürlich nicht, da als erste Bedingung geprüft wird, ob die Ini existiert. Kann sie aber nicht, wenn es das Verzeichnis gar nicht gibt. Wenn Du vernünftig einrücken würdest, hättest Du das wahrscheinlich auch gesehen ;)

[AlexII]

Ja und was hat das damit zutun, ja die ini existiert nicht, aber danach wird ja wieder nach nem anderem Verzeichnis gefragt. :gruebel: Verstehe ich nicht.

[AlexII]

Aaaaaa jetzt verstehe ich, der Ordner wird ja für ini erstellt, genau. :dancer2:

[DeddyH]

Trotzdem habe ich Deinen Code mal neu formatiert:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var update: Integer;
    Ini   : TIniFile;
    UserAppDataDir, ProgPath: String;
begin
  UserAppDataDir := GetSpecialFolder(CSIDL_LOCAL_APPDATA);
  if FileExists(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\Config.ini') then
    //dieser Block wird niemals ausgeführt, wenn die Ini nicht existiert
    begin
      Ini := TIniFile.Create(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\Config.ini');
      try
        ComboBox1.ItemIndex := Ini.ReadInteger('Default', 'Channel', 1);
      finally
        ini.free;
      end;

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

      ProgPath := ExtractFilePath(ParamStr(0));

      if FileExists(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\original.txt') then
        begin
          ListBox1.Items.LoadFromFile(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\original.txt');
        end 
      else 
        ListBox1.Items.LoadFromFile(ProgPath + 'ersatz.txt');
    end;
end;

Bei nachvollziehbarer Einrückung sieht man das sofort :zwinker:

[AlexII]

Hab das Programm noch mal gestartet, ohne Code zu ändern, und es wird auf einmal nix erstellt, nicht die ini und nicht der Ordner, jetzt verstehe ich garnix. :wall:

Aber danke dir, ich gucke mal jetzt weiter.

[AlexII]

Hab die Geschichte mit der .ini am Ende der procedure gesetzt und jetzt funkt alles, aber wirklich alles. :dancer2:

Thx noch mal. :thumb: