Tjek om filer eksisterer og slet filer

Prøv og kig på http://www.delphibasics.co.uk/RTL.asp?Name=FileExists og http://www.delphibasics.co.uk/RTL.asp?Name=DeleteFile

Hej Vint,  kan du bruge dette ??? 

  TForm1 = class(TForm)
    ButtonSletFil: TButton;
    ButtonTjekOgBrug: TButton;
    ButtonAfslutBrug: TButton;
    procedure ButtonSletFilClick(Sender: TObject);
    procedure ButtonTjekOgBrugClick(Sender: TObject);
    procedure ButtonAfslutBrugClick(Sender: TObject);
  private
    { Private declarations }
    f: file;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ButtonSletFilClick(Sender: TObject);
begin
  assignfile(f,'c:\filnavn.csv');
  try
    erase(f);
  except
    messagebox(0,'Filen .. findes ikke - eller er i brug','FEJL',0);
    end;
end;

procedure TForm1.ButtonTjekOgBrugClick(Sender: TObject);
begin
  assignfile(f,'c:\filnavn.csv');
  try
    reset(f);
  except
    messagebox(0,'Filen .. findes ikke','FEJL',0);
    end;

end;

procedure TForm1.ButtonAfslutBrugClick(Sender: TObject);
begin
  try
    closefile(f);
  except
    messagebox(0,'Filen var IKKE åben ','FEJL',0);
    end;
end;

Du kan også teste med {$i-} {$i+} f.eks.

{$i-}
reset(f);
{$i+}
if IOResult<>0 then
  Fejlmeld

Brug funktionen FileExists
If FileExists(Filnavn) then
  slet filen

FileExiste() og Deletefile() findes i sysutils.

Fordelen ved de andre metoder er at du kan teste på fejlkoderne.

Hej a nor og snowball.

Vil i smide et svar, så vil jeg fordele points til jer alle

Håber du fik fundet en god løsning :)

OK