Fileexists() og WinNT

Har du brugt FULD paht ?

Jens B

Hvad mener du med FULD path ?

han mener om du chekker på hele stien altså : \"c:\\dinmappe\\dinfil.fil\"

/SpEeDy

det gør jeg, jo - spørger fx...

if not fileexists(\'c:\\fil.fil\') then

- Thomas

Så prøv med find firstFile ...

Jens B

Hvad - er det en funktion, i så fald hvad hedder den ?

- Thomas

når du skriver et nt-system er det så NT4 eller win2K eller XP ??

For det virker her hos mig på winXP

/SpEeDy

den funktion borrisholt omtaler hedder findfirst og findnext og der er et glimrende eksempel i hjælpen.

/SpEeDy

den bruges til at løbe filer igennem med

det er et rigtigt WinNT system -

Jeg vil lige prøve at afprøve funktionen - vender snarest tilbage hertil...

prøv det her :

Function DetteErEnFunkTionDerIkkeHedderHest(const FileName : TFileName) : Boolean;
var
  SearchRec : TSearchRec;
  Res : Integer;
begin
  Res := Findfirst(FileName,faAnyFile,SearchRec);
  FindClose(SearchRec);
  Result := res = 0;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := BoolToStr( DetteErEnFunkTionDerIkkeHedderHest(Application.ExeName), true);
end;


Jens B