Copiar Archivos

[david duarte]

Hola a todos!!!

aqui de nuevo,

me gustaria que cuando copio un archivo de un lugar a otro, me apareciera la ventanita de progreso de copiado.

Anexo codigo de como copio el archivo

Código Delphi [-]
copiar := CopyFile(Pchar('c:\Microcredito\SourceT\Microcredito.exe'),Pchar('\\'+compudest+'\Microcredito\prueb  a_.exe'), FALSE);
      if copiar = False then
      Begin
        memo1.Lines.Add('*****************************************');
        memo1.Lines.Add('*******  ERROR AL COPIAR EL ARCHIVO  ****');
        memo1.Lines.Add('*********       VERIFIQUE    ************');
      end
      else
      Begin
        fintrans := Time;
        label3.Caption := TimeToStr(Now);
        inistr := TimeToStr(iniciotrans);
        finstr := TimeToStr(fintrans);
        memo1.Lines.Add('Archivo copiado a: '+stringgrid1.Cells[0,cont] +' Inicio ' +inistr + ' Fin '+finstr);
        showmessage ('Archivo copiado satisfactoriamente a la compu: '+compudest);
      end;

si alguien sabe alguna opcion, se los agradeceria, ya que al momento de querer copiar de una direccion ip a otra, a veces se tarda y no se si realmente esta copiando o se quedo trabada.

Muchas Gracias.

Saludos!!!

[[seoane]]

Utiliza algo como esto:

Código Delphi [-]
uses ShellApi;

var
  FOS: SHFILEOPSTRUCT;
begin
  FillChar(FOS,Sizeof(FOS),0);
  with FOS do
  begin
    wFunc:= FO_COPY;
    pFrom:= PChar('d:\1.wmv'+#0);
    pTo:= Pchar('d:\2.wmv'+#0);
  end;
  SHFileOperation(FOS);
end;

[david duarte]

Hola!!!

Ya logre que me saliera la ventanita de copiando
Tome el codigo de frankmch y lo adapte y ya me funcionó.

De todos modos muchas gracias.

[david duarte]

Hola a todos, ahora me surge una pregunta o cuestion.

Como se si realmente se copió el archivo.

Necesito poner en un memo, a donde se copio el archivo y si se copio correctamente o no.
Lo que pasa es que necesito hacer un proceso que se va a ejecutar cada cierto tiempo, pero aproximadamente a las 2 o 3 de la mañana, por lo tanto, nadie va a estar en la oficina y se va a dar cuenta si se copio o no, hasta el dia siguiente.

Que pasaría si yo me voy a la casa tranquilamente y regreso al dia siguiente y me encuentro con la noticia de que marco error en la primera copia a realizar(ya sea porque la computadora estaba apagada, no estaba conectada a la red, la sesion estaba cerrada, etc), tendria que volver a correr el proceso manualmente, y eso seria fatal para la empresa donde estoy trabajando.

Entonces simplemente quiero saber como puedo saber si se copio o no el archivo y si se copio correctamente, poner la direccion ip en un memo y la palabra ok delante de esta.

Si alguien tiene alguna idea, se aceptan.

Muchas Gracias
Saludos!!!

[suseLinux]

Excelente Aporte.. Gracias

[ergonickolas]

hola frankmch, soy nuevo, pero estaba justo buscando una funcion que sirviera para poder crear backup de archivos pero no he podido hacerlo funcionar.me podrias pasar el codigo completo, porfa lo necesito es que estoy haciendo un programa para mi escuela, y no puedo terminarlo. desde ya muchas gracias

[Casimiro Notevi]

Bienvenido a clubdelphi, ergonickolas, te recomiendo que leas nuestra guía de estilo, gracias.

Por cierto, si te fijas, ese mensaje es de 2003

[macedo_mx]

Buen Aporte !!!!