Ordner selbständig erstellen lassen

[Christian Seehase]

Moin Mirko,

ich finde das etwas optimistisch programmiert

Falls jemand die Sys.ini von Hand geändert hat, kannst Du Dir so Probleme einhandeln.

Ich würd's eher so machen:

Delphi-Quellcode:

       ini := TInifile.Create(ExtractFilePath(ParamStr(0))+'Sys.ini');
       try
          // Erst einmal sicherstellen, dass der eingelesene Wert auf \ endet
          Root       := IncludeTrailingPathDelimiter(ini.ReadString('KBPfad', 'Dir', Root));
       finally
          ini.Free;
       end;

       // Schlägt ForceDirectories fehl, stimmt was mit dem Pfad nicht
       // z.B., weil die Ini-Datei manipuliert wurde, oder Rechte fehlen
       if ForceDirectories(Root+Mainframe.Dateneingabe.DB_Kunden_Name.Text) then begin
         Neu := 'Nein';
       end else begin
         // Fehler verarbeiten
       end;