[Paulao]

Hizo asi, pero me lo da un error: cannot Open file"192.168.1.109\Teste\MyPicture\nombre_archivo.tif"
Abajo mis codigos. Lo que no estas cierto? Gracias a todos!!!

Código Delphi [-]
procedure TCopiaStream.FileCopy(const sourcefilename, targetfilename: String);
Var
 S, T: TFileStream;
begin
   S := TFileStream.Create( sourcefilename, fmOpenRead );
 try
   T := TFileStream.Create( targetfilename, fmOpenWrite or fmCreate );
   try
     T.CopyFrom(S, S.Size ) ;
   finally
     T.Free;
   end;
 finally
   S.Free;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Path_or := '\\192.168.1.109\teste\My Pictures\1912-11 1 NOVEMBRO - 31 DEZEMBRO\*.tif';
  Path_de := '\\192.168.1.109\teste\My Pictures\Destino\';
  vStream := TCopiaStream.Create(path_or,path_de);
end;