Mover carpeta y todo su contenido

[MaMu]

Utilizo esta funcion, pero no me funciona, me dice que no se puede leer del Archivo o Carpeta de origen, porque?

Código Delphi [-]
function MoverCarpeta(const carpetaOrigen,
  carpetaDestion: string) : boolean;
var
  FileOp: TSHFileOpStruct;
begin
  FillChar(FileOp, SizeOf(FileOp), #0);
  with FileOp do
  begin
    wFunc := FO_MOVE;
    Wnd := GetDesktopWindow;
    pTo := PChar(carpetaOrigen);
    pFrom := PChar(carpetaDestion+#0#0);
    fFlags := FOF_NOCONFIRMATION or
      FOF_SILENT or FOF_ALLOWUNDO;
  end;
  Result := (ShFileOperation(FileOp) = 0);
end;

Y la llamada es

Código Delphi [-]
procedure TMain.Button1Click(Sender: TObject);
var dir,name,dest,root:string;
begin
 root:=ExtractFilePath(Application.ExeName);
 dir:=root+'SvrDirectory\';
 dest:=root+'SvrHistory\';
 name:=ADOQuery1.FieldByName('carpeta').AsString;
 if ADOQuery1.RecordCount>0
   then begin
    //Muevo Dir
     if MoverCarpeta(dir+name,dest+name) 
       then 
     //Borra Dir
    // DeleteDir(dir+name);
       end;    
    ADOQuery1.Delete;
     ADOQuery1.Close;
     ADOQuery1.Open;
   end;
end;

[[seoane]]

Hombre, si no recuerdo mal mis clases de ingles, esto esta mal:

Código Delphi [-]
    pTo := PChar(carpetaOrigen);
    pFrom := PChar(carpetaDestion+#0#0);

[[cHackAll]]

jejej, no pude contenerme! no es el caso pero la observacion hace notar un pequeño BUG de "dedo"

[MaMu]

Empezado por cHackAll

jejej, no pude contenerme! no es el caso pero la observacion hace notar un pequeño BUG de "dedo"

jejejejejejejeje

[[egostar]]

Empezado por cHackAll

jejej, no pude contenerme! no es el caso pero la observacion hace notar un pequeño BUG de "dedo"

, Pero un BUG de "dedo" bien manejado.......

Código Delphi [-]
function MoverCarpeta(const carpetaOrigen,
  carpetaDestion: string) : boolean;
.......
.......
    pTo := PChar(carpetaOrigen);
    pFrom := PChar(carpetaDestion+#0#0);
.......
.......

Salud OS.

[[cHackAll]]

Cuando mis programas sufren de ese BUG me da ganas de llorar luego de pasar horas buscando la falla entre centenares de lineas!

Pero estuvo muy jocosa la observacion de las "clases de Ingles"... jejeje

Saludos!

[[seoane]]

Empezado por cHackAll

Cuando mis programas sufren de ese BUG me da ganas de llorar luego de pasar horas buscando la falla entre centenares de lineas!

Pero estuvo muy jocosa la observacion de las "clases de Ingles"... jejeje

Saludos!

No era mi intención ser jocoso, solo quería remarcar, quizá con demasiada ironía, que el parámetro pFrom se corresponde con la carpeta de origen y pTo con la de destino, justamente al revés de como estaba colocado. La verdad es que no me había fijado en como estaba escrito "carpetaDestion".