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.