indeholder teksten en tekst

med fileexists() mener jeg også at du bruge til mapper dvs.

if fileexists(c:\dokumenter\billeder\ferie) then
showmessage('Ja den er go nok!')
else
  showmessage('Nix, den går ikke!');


ZeroHero

ellers kan du jo bare bruge

if directoryexists('c:\dokumenter\billeder\ferie\') then ..bla bla

Jeg ved ikke helt hvad du mener med at den skulle kunne indeholde uendelig undermapper, det må du gerne forklare lidt nærmere...

Her en procedure som finder alle dir under c:\ og lægger dem i en listbox. Den kan let ændres så den fortsætter ned i træet (vha. rekursivt kald).

procedure TForm1.Button1Click(Sender: TObject);
var
s : TSearchRec;
begin
  if FindFirst('c:\*.*', faDirectory, s) = 0 then
    begin
      repeat
        if s.Attr = faDirectory then
          begin
            ListBox1.Items.Add(s.Name);
        end
      until FindNext(s) <> 0;
  end;
end;

ok, jeg forklare lidt nærmere: i FrontPage 2000, kan man vælge at arbejde i et bibliotek, sådan at alle htm-filer, billede osv. bliver hentet derfra. Jeg vil gerne gøre det samme. Hvis brugeren så går ud af den valgte arbejdsmappe, bliver filens navn vist med HELE mappestrukturen. Hvis filen findes i arbejdes mappen eller en undermappe af denne, vises filens navn, blot som fx. 'index.htm' eller 'images\logo.gif', da programmet blot smider arbejdsmappen indforan, når den skal bruge det.

const
  defaultdir: string='c:\minefiler\';

var
  mitdir: string;

if pos(defaultdir,mitdir)=1 then
begin
  delete(mitdir,1,length(defaultdir)); {fjerner defaultdir}
  showmessage(mitdir);
end
else
  showmessage(mitdir);

Jeg forstår ikke helt hvad du mener ?

Anyway, prøv at kigge på endestående

extractfilename(opendialog1.FileName);
extractfilepath(opendialog1.FileName);

De giver dig helholdsvis filnavn og sti.

Stoney

endestående = nedenstående

hreiff >> det virker fint, bort set fra at den skeldner mellem store og små bogstaver...
mange tak for hjælpen. og undskyld ventetiden :)

Så kan du bare bruge UpperCase(s)