Einzelnen Beitrag anzeigen

AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#1

Verzeichnis auf Existenz prüfen?

  Alt 22. Apr 2009, 17:07
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?
  Mit Zitat antworten Zitat