Hi das ist mein CodeLib eintrag
... des nächste mal kannst du mir ruhig eine pn schicken
so ich glaub ich hab deinen fehler gefunden:
lStream:=TFileStream.Create('.\'+AFile, fmCreate or fmShareDenyNone);
Des hast du zweimal drinnen ... wenn du die procedure aufrufst dann will er eine Datei auf den Pfad ".\DateiNr1" anlegen, korriger mich wenn ich mich täusche aber das kann nicht gehen. Du musst bei deiner Procedure noch einen zweiten Paramter ein bauen (z.b. "FilePath : String") und dann den Stream mit
lStream:=TFileStream.Create(FilePath, fmCreate or fmShareDenyNone);
initialiesieren.
So müsste es gehen
