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

zusammenfalten · markieren

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]

**lbccaleb**

schau mal hier, ungefähr so??:

neuer ordner

und hier

datei schreiben

**Willi1960**

Hallo,

Danke für den Tip, aber die Ordner sind bereits erstellt. Der Quelltext will einfach die Datei nicht in die unterordner hineinschreiben. Wenn ich den gleichen Quellcode in das Hauptverzeichnis schreibe funktioniert es.

**RavenIV**

Zitat von Willi1960:

Hallo,

Danke für den Tip, aber die Ordner sind bereits erstellt. Der Quelltext will einfach die Datei nicht in die unterordner hineinschreiben. Wenn ich den gleichen Quellcode in das Hauptverzeichnis schreibe funktioniert es.

Erste Idee:
Wenn die Ordner bereits angelegt sind, vielleicht stimmen dann die Rechte nicht?
Darfst Du (Deine Software) in diese Ordner schreiben, Dateien anlegen, Dateien verändern?

Zweite Idee:
Versuch mal bei AssignFile die Backslashes als Doppel-Backslash anzugeben
AssignFile (..., 'C:\\temp\\sonstwas\datei,txt');

Zum Ordner-Anlegen:

ForceDirectories dürfte da besser geeignet sein, da es gleich mehrere Ebenen auf einmal anlegt und man nicht mit $I rumspielen muss

**Luckie**

Zitat von RavenIV:

Versuch mal bei AssignFile die Backslashes als Doppel-Backslash anzugeben
AssignFile (..., 'C:\\temp\\sonstwas\datei,txt');

Und warum das? Wir progarmmieren hie rin Delphi und nicht in C, wo "\" ein Steuerzeichen markiert.

**Hawkeye219**

Hallo,

Zitat von Hilfe zu MkDir:

Mit dem Compiler-Schalter {$I+} können Laufzeitfehler durch Exceptions behandelt werden. Wird {$I-} verwendet, muß explizit mit IOResult auf E/A-Fehler geprüft werden.

Der Versuch, ein bereits bestehendes Verzeichnis erneut zu erzeugen, löst einen Laufzeitfehler aus, den du durch den Compilerschalter {$i-} unterdrückst. Solange du diese Fehlercodes nicht mit IOResult abfragst, bleiben sie stehen und verhindern die Ausführung weiterer Ein-/Ausgabeoperationen.

Also: folge dem Vorschlag von CCRDude.

Gruß Hawkeye

**Chemiker**

Hallo Willi1960,

Vielleicht hilft dir das weiter:

zusammenfalten · markieren

Delphi-Quellcode:

			var

  OrdnerName: String;

  DateiName: String;

  f: TextFile;

begin

  OrdnerName:= 'h:\jowisoft\kasse\kassendaten\';

  DateiName:= 'bondaten.txt';

  ForceDirectories(OrdnerName);

  AssignFile (f, OrdnerName+DateiName);

  {$I-}

  Rewrite (f);

  {$I+}

  If IOResult = 0 then

  begin

    Writeln (f, 'Test');

    // Deine Daten

    closefile(f);

  end;

end;

Fehlerbehandlung usw. fehlen.

Bis bald Chemiker

**Willi1960**

Hallo,
funktioniert leider auch nicht vielleicht muß ich mit chdir das aktuelle verzeichnis wecheln, ich habe das auch schon probiert, geht aber auch nicht. und forcedirectoriers erzeugt sofort eine fehlermeldung

**lbccaleb**

was für ne delphi version benutzt du??

Wie erstelle ich ein aktuelles Dateiverzeichnis

Wie erstelle ich ein aktuelles Dateiverzeichnis

Re: Wie erstelle ich ein aktuelles Dateiverzeichnis

Re: Wie erstelle ich ein aktuelles Dateiverzeichnis

Re: Wie erstelle ich ein aktuelles Dateiverzeichnis

Re: Wie erstelle ich ein aktuelles Dateiverzeichnis

Re: Wie erstelle ich ein aktuelles Dateiverzeichnis

Re: Wie erstelle ich ein aktuelles Dateiverzeichnis

Re: Wie erstelle ich ein aktuelles Dateiverzeichnis

Re: Wie erstelle ich ein aktuelles Dateiverzeichnis

Re: Wie erstelle ich ein aktuelles Dateiverzeichnis

Forumregeln

lbccaleb Registriert seit: 25. Mai 2006 Ort: Rostock / Bremen 2.037 Beiträge Delphi 7 Enterprise	#2 Re: Wie erstelle ich ein aktuelles Dateiverzeichnis 26. Jun 2007, 12:04 schau mal hier, ungefähr so??: neuer ordner und hier datei schreiben Martin
	Zitat

Willi1960 Registriert seit: 18. Nov 2006 Ort: Goslar 29 Beiträge	#3 Re: Wie erstelle ich ein aktuelles Dateiverzeichnis 26. Jun 2007, 12:12 Hallo, Danke für den Tip, aber die Ordner sind bereits erstellt. Der Quelltext will einfach die Datei nicht in die unterordner hineinschreiben. Wenn ich den gleichen Quellcode in das Hauptverzeichnis schreibe funktioniert es.
	Zitat

CCRDude (Gast) n/a Beiträge	#5 Re: Wie erstelle ich ein aktuelles Dateiverzeichnis 26. Jun 2007, 12:28 Zum Ordner-Anlegen: ForceDirectories dürfte da besser geeignet sein, da es gleich mehrere Ebenen auf einmal anlegt und man nicht mit $I rumspielen muss
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#6 Re: Wie erstelle ich ein aktuelles Dateiverzeichnis 26. Jun 2007, 12:42 Zitat von RavenIV: Versuch mal bei AssignFile die Backslashes als Doppel-Backslash anzugeben AssignFile (..., 'C:\\temp\\sonstwas\datei,txt'); Und warum das? Wir progarmmieren hie rin Delphi und nicht in C, wo "\" ein Steuerzeichen markiert. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

Willi1960 Registriert seit: 18. Nov 2006 Ort: Goslar 29 Beiträge	#9 Re: Wie erstelle ich ein aktuelles Dateiverzeichnis 26. Jun 2007, 19:27 Hallo, funktioniert leider auch nicht vielleicht muß ich mit chdir das aktuelle verzeichnis wecheln, ich habe das auch schon probiert, geht aber auch nicht. und forcedirectoriers erzeugt sofort eine fehlermeldung
	Zitat

lbccaleb Registriert seit: 25. Mai 2006 Ort: Rostock / Bremen 2.037 Beiträge Delphi 7 Enterprise	#10 Re: Wie erstelle ich ein aktuelles Dateiverzeichnis 26. Jun 2007, 19:40 was für ne delphi version benutzt du?? Martin
	Zitat