copias de archivo
 

Tengo Este Procedimiento, que permite copiar una carpeta y sus archivos.El Problema es que cuando se trata de copiar un archivo que estan en uso, se detienenes el proceso.Mi pregunta es: Como puedo evitar esto, osea, que me permita copiar el archivo que esta en uso o omitirlo. procedure TForm1.Button1Click(Sender: TObject); //Incluye ShellApi 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 CopiaTodo('c:\Delphi6\*.*','c:\kk');end;

Te recomiendo que uses las etiquetas [ delphi ] [ /delphi ] (omitiendo los espacios) cuando desees colocar código fuente en tus mensajes. Por que de la forma en que lo hiciste, no más no se entiende nada y dudo que alguien te pueda ayudar con tu problema.



Saludos...

Creo que este hilo será de mucha ayuda: http://www.clubdelphi.com/foros/showthread.php?t=23688

PD: Utiliza la etiqueta [delphi] para subir código ;)

Saludos!