Mover carpeta y todo su contenido

[[Lepe]]

Empezado por JuanErasmo

perooo deberia dejarse copiar,,,,
Gracias

No tiene por qué, si el proceso está escribiendo en ese archivo, no debe dejar leer tampoco.

[[cHackAll]]

No soy muy íntimo de ShFileOperation, pero creo que es una API bastante interesante!

El error inicial del hilo era el error de "dedo" verdad? o me equivoco. Ahora si les aparece algunos errores de dispositivo u otro por qué no intentan poner antes la siguiente linea... talvez les sea útil.

Código Delphi [-]
SetErrorMode(SEM_FAILCRITICALERRORS);

Saludos!

[Keiso]

Todo este código es pura API y me funciona muy bien con archivos y carpetas, "origen" y "destino" son strings globales y en la Uses añadir ShellApi.

Código Delphi [-]
procedure CopyProc;
var StructFile: _SHFILEOPSTRUCT;
begin
 if destino <> "" then
 // llenamos la estructura StructFile
  begin
   StructFile.Wnd:= 0;
   StructFile.wFunc:= FO_MOVE;
   StructFile.pFrom:= PChar(origen + #0);
 // #0 es importante o no copiará algunos archivos
   StructFile.pTo:= destino;
   StructFile.fFlags:= FOF_SIMPLEPROGRESS;
   StructFile.lpszProgressTitle:= PChar(origen + '  a  ' + destino);
   if SHFileOperation(StructFile) = 0 then
    MessageBox(0,'Copiado','OK',0);
   else
    MessageBox(0,'No copiado','Error',MB_ICONHAND);
  end
 else
   MessageBox(hMain,'Se debe seleccionar una carpeta de destino','Error',MB_ICONEXCLAMATION);
end;

Saludos!!!