Tjekke om fil er fundet

brug funktionen FileExists

function FileExists(const FileName: string): Boolean;

if fileexists('c:\test.txt') then open....

HMann

if FileExists(FileName) then
  // alt er ok
else
  ShowMessage('Kunne ikke finde filen');

i øvrigt burde du skrue en del ned for point antallet... Det her er en 5 points sag

jeg troede det var sværere, derfor satte jeg point-satsen højt...
det virker upåklageligt - mange tak for hjælpen..!

Det var ellers lidt af en lækkerbidsken af et spørgsmål.

Mener godt du kan nedskrive dine points selv og jeg tror også det vil blive accepteret ved sådan et let spørgsmål (for det er det). Om ikke andet kan du selv lave et svar og så tage et antal af pointsene.

I gamle dage så det således ud (Borland Pascal):

function AnyFile(aFileName : string) : boolean;
var
  bFound : boolean;
begin
  assignfile(fp,aFileName);
  {$i-} reset(fp); {$i+}
  bFound := (ioresult = 0);
  if bFound then
    close(fp);
  AnyFile := bFound;
end;