savetofile in bestimmtest Verzeichnis / Ordner erstellen

[Lord_Stifterl]

So...ich hab die Sourcen doch gefunden

und so funkts:

Code:

  // Erstellen des Ordners/Unterordners:
  
  var DirPfad, SavePfad: String;
      Config_Pfad: TFileName;
  

    //den Config_Pfad bekomm ich hier über einen Savedialog in einer anderen Procedure.
    DirPfad := ExtractFilePath(Config_Pfad);
    mkDir(DirPfad + '\Ordner');
    SavePfad := DirPfad + '\Ordner';

    // Speichern des Files:
    SaveToFile(SavePfad + '\File.txt');

Ist jetzt sicher nicht die einfachste Methode dies zu tun, aber es funzt


LG
LS

PS: Hoffentlich hab ich jetzt alle richtig abgetippt