savetofile in bestimmtest Verzeichnis / Ordner erstellen

[Kiaro]

Hi ihr!

Ich hab ein Problem mit dem Projekt an dem ich gerade arbeite.

Ich muss über savetofile('dateiname.txt') relativ viele Dateien speichern und wollte dazu der besseren ORdnung halber mehrere Ordner verwenden. Die Dateien bestehen vor dem ersten speichern nicht. Danach werden sie immer ersetzt durch die neue Datei.
Wie sag ich in Delphi korrekt, dass er am Ort \Programmverzeichnis\Unterordner1 speichert, bzw. aus selbigem läd mit loadfromfile?

Außerdem, gibt es eine Möglichkeit, selbige Ordner zur Laufzeit zu erstellen? :gruebel:
Sorry, is glaub das falsche Forum, aber ich bin neu hier, hab mich grad vertan sorry!!!
mfg Kiaro

[maximov]

Willkommen in der DP :-D


Wenn ich dich richtig verstehe suchst du einen ersatz für

Delphi-Quellcode:

extractFilePath(PAramStr(0));

?

IMO sollte es so gehen:

Delphi-Quellcode:

savetofile(Application.ApplicationPath+'ordner\dateiname.txt')

PS: wenn das eine Delphi8 frage ist, dann ist dies das richtige forum...ansonsten eher nicht :wink:

[Kiaro]

Ja, ich such im Prinzip ne andere Möglichekit als extractfilepath... MIr ist icht so ganz klar, wie ich extractfilepath richtig verwende...

[scp]

Um den Ordner zu erstellen, kannst du so vorgehen:

Delphi-Quellcode:

If not DirectoryExists(Application.ApplicationPath + 'Unterordner1') then
  Mkdir(Application.ApplicationPath + 'Unterordner1');
savetofile(Application.ApplicationPath + 'Unterordner1' + '\' + 'dateiname.txt')

[Kiaro]

Vielen Dank erst mal!

Aber kann es sein, dass es das application.filepath in Delphi 6 noch nicht gibt? Er motzt bei mir rum, dass er das nicht kennt... (Wie gesagt, war eben dummerweise falsches Forum)

mfg Kiaro

[Lord_Stifterl]

Hi Kiaro,

hab leider die passenden Quelltext gerade nicht bei mir, aber wenn mich nicht alles täuscht, dann war das nur Application.Path :gruebel: . Kann dir aber, solltest du bis dahin noch keine Antworten auf deine Fragen gefunden haben, am Abend einige deiner Fragen beantworten(inkl. Sourcebeispiele).

Zitat:

Zitat von Kiaro

Vielen Dank erst mal!

Aber kann es sein, dass es das application.filepath in Delphi 6 noch nicht gibt? Er motzt bei mir rum, dass er das nicht kennt... (Wie gesagt, war eben dummerweise falsches Forum)

mfg Kiaro

LG
LS

[scp]

Sorry, habs einfach von oben übernommen, kannst natürlich auch mit

Delphi-Quellcode:

If not DirectoryExists(extractFilePath(PAramStr(0)) + 'Unterordner1') then
  Mkdir(extractFilePath(PAramStr(0)) + 'Unterordner1');
savetofile(extractFilePath(PAramStr(0)) + 'Unterordner1' + '\' + 'dateiname.txt')

arbeiten, mein D6 kennt auch weder Application.ApplicationPath noch Application.Path (evtl. erst ab D7?).

[Sebastian Nintemann]

Hallo zusammen,

Delphi-Quellcode:

Application.Exename

liefert dir Pfad + Dateinamen + Erweiterung der Exedatei. Also müsstest du auch hier mit ExtractFilePath arbeiten.

MfG, Sebastian

[Kiaro]

Was hat denn das paramstring bei dem extractfilepath zu bedeuten?

Irgendwie bin ja kein ganz blutiger Anfänger mehr, aber da steig ich noch nicht so ganz durch...

[Lord_Stifterl]

So...ich hab die Sourcen doch gefunden :-D

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 :-D


LG
LS

PS: Hoffentlich hab ich jetzt alle richtig abgetippt :mrgreen: