Fehler bei Adressierung einer Textdatei zum zugehörigen Ordner

[taveuni]

ForceDirectories erstellt das Verzeichnis wenn nicht vorhanden.
Du brauchst das ganze ExtractFilePath Gedöns nicht.

Also:

Delphi-Quellcode:

var
  sDir: String;
begin
  sDir:= ('C:\blablabllaa\blaaablabla');
  if not ForceDirectories(sDir)
  begin
    // das Verzeichnis ist nicht vorhanden und konnte nicht erstellt werden.
    // weshalb - mit GetLastError auswerten.
  end
  else
    // mach was in dem Verzeichnis
  begin
  end;