Dateien und Ordner auflisten als XML

[DeddyH]

Jetzt hab ich das Problem erst verstanden

Delphi-Quellcode:

procedure TfrmTemplateerstellen.btn1Click(Sender: TObject);
var i: integer;
    s :TStringList;
    sPath: string;
begin
  s:= TStringList.Create();
  try
    Mmo1.Lines.BeginUpdate;
    try
      Mmo1.Lines.Clear;
      sPath := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)) + edtDirectoryName.Text);
      FileList(sPath ,'*.*',True,s);
      for i := 0 to Pred(s.Count) do
        Mmo1.Lines.Add('<filename>'+Copy(s[i],Length(sPath) + 1,Length(s[i]))+'</filename>');
    finally
      Mmo1.Lines.EndUpdate;
    end;
  finally
    s.Free;
  end;
end;

Ungetestet.