scusa il rirtardo...

Var
path: string;
begin
path:= 'f:\*.*';
Listbox2.Perform(LB_DIR, DDL_DIRECTORY or DDL_EXCLUSIVE, LPARAM(Pchar(Path)));
end;


ciao