Ver Mensaje Individual
  #1  
Antiguo 21-09-2016
Avatar de lbidi
lbidi lbidi is offline
Miembro
 
Registrado: oct 2003
Ubicación: Montevideo- URUGUAY
Posts: 417
Reputación: 23
lbidi Va por buen camino
Mover carpetas completas

Estimados, tengo el siguiente codigo obtenido de algun post de este club para mover una carpeta completa y sus archivos de un disco a otro.

Código Delphi [-]
function Tfrm_Main.MoveDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
    ZeroMemory(@fos, SizeOf(fos));
    with fos do
    begin
        wFunc  := FO_MOVE;
        fFlags := FOF_FILESONLY;
        pFrom  := PChar(fromDir + #0);
        pTo    := PChar(toDir)
    end;
    Result := (0 = ShFileOperation(fos) );
end;
Por lo que he probado, utiliza alguna api de Windows para realizar este proceso y mi consulta es como puedo hacer para que no pregunte si deseo sobreescribir o "combinar" carpetas ? mi deseo es que mueva directamente sin preguntar. Es posible ?

Muchas gracias.
Responder Con Cita