Probleme mit ForceDirectories

[gangs-taas]

Zitat von DeddyH:

Ich würde den Code etwas erweitern:

Delphi-Quellcode:

if not (DirectoryExists(Pfad)) then
    begin
      if SysUtils.ForceDirectories(Pfad) then
        begin
          Dokument.Add(Text);
          Dokument.SaveToFile(DokumentenOrt);
        end
      else
        MessageBox(0,PChar(Format('Fehler beim Anlegen des Verzeichnisses "%s"',[Pfad])),'Oops',MB_OK or MB_ICONERROR);
    end 
else
  ...

bringt nichts
ich bekomme KEINE MsgBox und bekomme hier

Delphi-Quellcode:

   begin
      if SysUtils.ForceDirectories(Pfad) then
        begin
          Dokument.Add(Text);
          Dokument.SaveToFile(DokumentenOrt);
        end
      else
        MessageBox(0,PChar(Format('Fehler beim Anlegen des Verzeichnisses "%s"',[Pfad])),'Oops',MB_OK or MB_ICONERROR);
    end 
else
    begin
      If not FileExists(DokumentenOrt) Then
      begin
        Dokument.Add(Text);
        Dokument.SaveToFile(DokumentenOrt);  // hier !!
      end;

die fehlermeldung "Pfad ist nicht vorhanden"

also erkennt er IMMERNOCH NICTH, dass er deb Pfad anlegen soll ...