savetofile in bestimmtest Verzeichnis / Ordner erstellen

[Nightshade]

Delphi-Quellcode:

function TForm1.CreateFile(Filename : string) : Boolean;
var dat : TFileStream;
begin
  result := false;
  if NOT ( FileExists(Filename) ) then begin
    dat := TFileStream.Create(Filename,fmCreate);
    Freeandnil(dat);
    result := true;
  end;
end;

Versuchs mal so....