Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 13-10-2017
river_1 river_1 is offline
Miembro
 
Registrado: may 2010
Posts: 55
Poder: 15
river_1 Va por buen camino
Copiar Achivos

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...
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Nombre de la Maquina Local marcosl API de Windows 2 31-07-2007 17:50:59
Obtener el nombre de la máquina local de Internet y la dirección IP dec Trucos 0 29-06-2006 23:01:52
Copiar ficheros de una maquina a otra po TCP miguel_e Varios 3 06-01-2006 20:59:08
Acceso a máquina local desde terminal Server jafl1965 Varios 0 18-03-2005 15:53:13
Saber IP de MAQUINA LOCAL spider_Ramon API de Windows 1 12-03-2005 13:19:54


La franja horaria es GMT +2. Ahora son las 00:08:36.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi