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