Copiar tablas de la red a maquina local

[Neftali [Germán.Estévez]]

Puedes ejecutar el .BAT directamente.

https://www.clubdelphi.com/foros/showthread.php?t=41204
http://www.clubdelphi.com/foros/showthread.php?t=76965
https://www.clubdelphi.com/foros/sho...47391&langid=1

[[ElDioni]]

Hola,

también puedes utilizar el comando CopyFile.

Código Delphi [-]
CopyFile('RutaOrigen','RutaDestino'),true);

el valor boolean del final es para indicar, en caso de que el archivo ya exista en el destino, si quieres que lo sobrescriba o no.

Saludos.

[river_1]

Pues ya quedo , les comparto como quedo por si a alguien le sirve que para esto es este foro que me ha ayudado bastante.

Código Delphi [-]
procedure TForm1.RzBitBtn1Click(Sender: TObject);
function CopiaTodo(Origen,Destino : String) :
  LongInt;
  var 
    F : TShFileOpStruct;
    sOrigen, sDestino : String;
  begin 
    Result := 0;
    sOrigen := Origen + #0;
    sDestino := Destino + #0;
 
    with F do 
    begin 
      Wnd   := Application.Handle;
      wFunc := FO_COPY;
      pFrom := @sOrigen[1];
      pTo   := @sDestino[1];
      fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION
    end;

    Result := ShFileOperation(F);
end;

begin
 if TblAgentescidempresa.Value=2 then
  begin
    CopiaTodo('\\NOMINAT\Empresas\RUFI MARCH SC\MGW10008.dbf','C:\pro-system');
    CopiaTodo('\\NOMINAT\Empresas\RUFI MARCH SC\MGW10008.fpt','C:\pro-system');
    CopiaTodo('\\NOMINAT\Empresas\RUFI MARCH SC\MGW10005.dbf','C:\pro-system');
    CopiaTodo('\\NOMINAT\Empresas\RUFI MARCH SC\MGW10005.fpt','C:\pro-system');
    CopiaTodo('\\NOMINAT\Empresas\RUFI MARCH SC\MGW10010.dbf','C:\pro-system');
    CopiaTodo('\\NOMINAT\Empresas\RUFI MARCH SC\MGW10010.fpt','C:\pro-system');
   end

y asi repito el codigo 25 veces ya que son 25 empresas en el menu..
un saludo a todos...