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?).