Forum: Sonstige Fragen zu Delphi
Delphi
by scp,
21. Jan 2004
Sorry, habs einfach von oben übernommen, kannst natürlich auch mit
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?).
Forum: Sonstige Fragen zu Delphi
Delphi
by scp,
21. Jan 2004
Um den Ordner zu erstellen, kannst du so vorgehen:
If not DirectoryExists(Application.ApplicationPath + 'Unterordner1') then
Mkdir(Application.ApplicationPath + 'Unterordner1');
savetofile(Application.ApplicationPath + 'Unterordner1' + '\' + 'dateiname.txt')