Filer i et dir ?

FindFirst , FindNext

Der er et par spm hvor jeg har lavet en Scan procedure der også kan tage subdir ( option )

fandt det her, men den viser filerne i det dir exe filen er i...

det skal den ikke, jeg skal kunne angive et dir til den.



procedure TForm1.Button1Click(Sender: TObject);
Var
  Fsr : TSearchRec;
  SogSti : String;
  Sti : String;
Begin
  Sti := (\'c:\');
  If Sti[Length(Sti)] = \'\' then else
    Sti := Sti + \'\';
  If LastDelimiter(\'g\',Sti) > 0 then else
    SogSti := Sti + \'*.*\';

  If FindFirst(SogSti, faAnyFile, Fsr) = 0 then
    If FSr.Attr <> faDirectory then
      Begin
memo1.lines.add(Fsr.Name);
      end;


  While FindNext(Fsr) = 0 do
    If FSr.Attr <> faDirectory then
      Begin
memo1.lines.add(Fsr.Name);
      end;
  FindClose(Fsr);
end;

Underligt, hvis jeg lægger filen på mit d drev, viser den indholdet af c:\\  som angivet.
Men ligger den på c drevet viser den indholdet af mappen den ligger i.

angiver jeg en mappe, viser den intet hvis den er på c drevet, men roden af c hvis den er på et andet

Fandt et svar fra en anden bruger, som virker.

procedure TForm1.Button1Click(Sender: TObject);
var
  SearchRec: TSearchRec;
  dir : string;
begin
dir:=\'c:\\dokumenter\\mobilos\';
  If Copy(dir,Length(dir),1)<>\'\\\' then dir:=dir+\'\\\';
  If FindFirst(dir+\'*.*\', faAnyFile, SearchRec)=0 Then
  Repeat
If SearchRec.Attr<>faDirectory then
  memo1.lines.add(SearchRec.Name);
  until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;