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;

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

zusammenfalten · markieren

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;

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

Ein paar infos:

ich rufe das so auf:

markieren

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?