verzeichnis auslesen

[NicNacMan]

^push^

is wahrscheinlich jetzt zu spät, aber vll kannstes ja immernoch gebrauchen.
so hab ichs bis jetzt gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  mysl: TStringList;
  i   : Integer;
begin
  mysl := TStringList.Create;
  try
    mysl.Text := IdHTTP1.Get('http://www.testpage.de/images/');
    for i := Pred(mysl.Count) downto 0 do
      if (Copy(mysl.Strings[i], 1, 20) <> '<IMG SRC="/file.gif"') then
        mysl.Delete(i);
    mysl.SaveToFile(ExtractFilePath(ParamStr(0)) + 'dir.txt');
  finally
    mysl.Free;
  end;
end;