![]() |
savetofile in bestimmtest Verzeichnis / Ordner erstellen
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 |
Re: savetofile in bestimmtest Verzeichnis / Ordner erstell
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:
PS: wenn das eine Delphi8 frage ist, dann ist dies das richtige forum...ansonsten eher nicht :wink:
savetofile(Application.ApplicationPath+'ordner\dateiname.txt')
|
Re: savetofile in bestimmtest Verzeichnis / Ordner erstell
Ja, ich such im Prinzip ne andere Möglichekit als extractfilepath... MIr ist icht so ganz klar, wie ich extractfilepath richtig verwende...
|
Re: savetofile in bestimmtest Verzeichnis / Ordner erstell
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') |
Re: savetofile in bestimmtest Verzeichnis / Ordner erstell
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 |
Re: savetofile in bestimmtest Verzeichnis / Ordner erstell
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:
LS |
Re: savetofile in bestimmtest Verzeichnis / Ordner erstell
Sorry, habs einfach von oben übernommen, kannst natürlich auch mit
Delphi-Quellcode:
arbeiten, mein D6 kennt auch weder Application.ApplicationPath noch Application.Path (evtl. erst ab D7?).
If not DirectoryExists(extractFilePath(PAramStr(0)) + 'Unterordner1') then
Mkdir(extractFilePath(PAramStr(0)) + 'Unterordner1'); savetofile(extractFilePath(PAramStr(0)) + 'Unterordner1' + '\' + 'dateiname.txt') |
Re: savetofile in bestimmtest Verzeichnis / Ordner erstell
Hallo zusammen,
Delphi-Quellcode:
liefert dir Pfad + Dateinamen + Erweiterung der Exedatei. Also müsstest du auch hier mit ExtractFilePath arbeiten.
Application.Exename
MfG, Sebastian |
Re: savetofile in bestimmtest Verzeichnis / Ordner erstell
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... |
Re: savetofile in bestimmtest Verzeichnis / Ordner erstell
So...ich hab die Sourcen doch gefunden :-D
und so funkts:
Code:
Ist jetzt sicher nicht die einfachste Methode dies zu tun, aber es funzt :-D
// 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'); LG LS PS: Hoffentlich hab ich jetzt alle richtig abgetippt :mrgreen: |
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:18 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz