[[kurono]]

hola amigos como estan necesito una pequeña ayuda con este codigo el cual use hace un tiempo pero ahora no me acuerdo como fue que lo modifique para que me listara los directorios de una maquina en red

Código Delphi [-]
procedure Rastrear (Dir:string);
var
 SR:TSearchRec;
 mascara: string;
begin
 mascara:='*.*';
 if FindFirst(dir + mascara, faAnyFile, SR) = 0 then
 begin
  repeat
     if ( (SR.Attr and fadirectory) = fadirectory) then
       begin
         if  (SR.Name <> '.')and (SR.Name <> '..') then
           Rastrear( Dir + SR.Name+'\' );
       end
     else
       begin
         form1.Memo1.Lines.Add (Dir + SR.Name);
       end;
     until FindNext(SR) <> 0;
     FindClose(SR);
 end;
end;

e intentado de las siguiente forma

Código Delphi [-]
 Rastrear(\\Server-gantz\f:\);
 Rastrear(192.168.0.105\f:\);

y no me resulta