gucken ob Verzeichnis leer ist sonst...

[sakura]

Falls es Dir um eine .NET Lösung geht, dann teste folgendes. Erstelle eine neue .NET Forms App, werfe einen Button und ein Textfeld drauf. Setze beim Textfeld die Eigenschaft MultiLine auf True und vergrößere es. Dann folgender Code in das Button-OnClick Ereignis:

Delphi-Quellcode:

procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);
var
  Dir: System.IO.DirectoryInfo;
  SubDirs: array of DirectoryInfo;
  Files: array of FileInfo;
  I: Integer;
begin
  Dir := System.IO.Directory.CreateDirectory('C:\Temp');
  TextBox1.Clear;

  TextBox1.AppendText('Verzeichnisse');
  TextBox1.AppendText(#13#10);
  SubDirs := Dir.GetDirectories;
  if Length(SubDirs) > 0 then
    for I := Low(SubDirs) to High(SubDirs) do
    begin
      TextBox1.AppendText(SubDirs[I].Name);
      TextBox1.AppendText(#13#10);
    end;

  TextBox1.AppendText(#13#10);
  TextBox1.AppendText('Dateien');
  TextBox1.AppendText(#13#10);
  Files := Dir.GetFiles;
  if Length(Files) > 0 then
    for I := Low(Files) to High(Files) do
    begin
      TextBox1.AppendText(Files[I].Name);
      TextBox1.AppendText(#13#10);
    end;
end;

......

Nachtrag:

Delphi-Quellcode:

uses
  System.IO;