Ordner über sockets versenden

[Master_Jochen]

So ein problem weniger vieleicht hilft diese lösung ja auch jemand anderem weiter

Delphi-Quellcode:

procedure TForm1.ListDirectory(path:string);
var
  SR: TSearchRec;
    i:integer;
begin
    i:=length(path);
    if(path[i]<>'\')then path:=path + '\';


    if FindFirst(path + '*.*', faAnyFile, SR) = 0 then try
      repeat
        if ((faDirectory) = faDirectory) and
           (SR.Name <> '.') and (SR.Name <> '..') then
           begin;
             Listbox1.Items.Add(path + SR.Name);
             ListDirectory(path + SR.Name + '\');
           end;
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
end;

Die zeile

Delphi-Quellcode:

    i:=length(path);
    if(path[i]<>'\')then path:=path + '\';

habe ich eingebaut für niedrige delphi versionen unter 4

Ja die procedure zeigt alle verzeichnisse im übergebenen pfad auch leere und alle dateien in listbox 1 an.