Wie erstelle ich ein aktuelles Dateiverzeichnis

[Willi1960]

Hallo,

ich habe ein Problem.

ich möchte gerne eine Textdatei in ein Unterverzeichnis schreiben, doch das geht so ohne weiteres nicht, weil ich dazu einen gültige Pfad erstellen muß ?

Ich habe folgenden Code

Delphi-Quellcode:

  {$i-}
   mkdir('c:\jowisoft');
   mkdir('c:\jowisoft\kasse');
   mkdir('c:\jowisoft\kasse\kassendaten');
   {$i+}
   assignfile(f,'c:\jowisoft\kasse\kassendaten\bondaten.txt');
   rewrite(f);
   for i:=1 to 6 do writeln(f,bonzeile[i]);
   writeln(f,bonstadt);
   writeln(f,bonmwst);
   closefile(f);
   {$i+}

beim Programmablauf erscheint dann der Fehler Programmname nicht gültig

Wer kann mir helfen ?

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]