Lan Ordner/Dateien auflisten

[seppi.tm]

Ich Möchte gerne von anderen rechnern freigegebe dateien auflisten ... und die ordner wie kann ich sowas realisieren? was brauche ich dafür?
ich würde gerne die dateien auflisten können und kopieren ... am besten auch noch wissen wie groß sie sind, doch ich habe nicht die leiseste ahnung wie ich das realsieren soll denn das standart copyfile geht nicht;

[marius0702]

es müsste gehen wenn man bei dieser procedure für den pfad "\\IP...\" eingibt.
die ips im netzwerk kannst du so auflisten:hier

Delphi-Quellcode:

procedure FileList(const APath, AExt: string; ARecurse: Boolean; 
  AList: TStrings); 
var 
  F    : TSearchRec; 
  Path : string; 
begin 
  Path := IncludeTrailingPathDelimiter(APath); // nur für Delphi 4 und höher! 
  if (ARecurse) and 
    (FindFirst(Path + '*.*', faAnyFile, F) = 0) then 
  try 
    repeat 
      if (F.Name <> '.') and (F.Name <> '..') and 
        ((F.Attr and faDirectory) = faDirectory) then 
        FileList(Path + F.Name, AExt, ARecurse, AList); 
    until FindNext(F) <> 0; 
  finally 
    FindClose(F); 
  end; 
  if FindFirst(Path + AExt, faAnyFile, F) = 0 then 
  try 
    repeat 
      if (F.Name <> '.') and (F.Name <> '..') and 
        ((F.Attr and faDirectory) <> faDirectory) then 
        AList.Add(Path + F.Name); 
    until FindNext(F) <> 0; 
  finally 
    FindClose(F); 
  end; 
end;

[seppi.tm]

das geht nich dann stürtzt das programm einfach ab ...

Ein paar infos:

ich rufe das so auf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
s:Tstringlist;
begin
s:=s.Create;
//s.Add('1');
Filelist('\\localhost','\Hosenscheißer',true,s);
showmessage(inttostr(s.Count));
end;

aber es geht nicht in der Messagebox steht 0... hmm woran kann das liegen?