FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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;
|
#2
|
|||
|
|||
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... |
#3
|
||||
|
||||
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!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
|
|
|