Hay un error en copiar estan invertidos pFrom Con pTo
donde dice en CopiarCarpeta
[delphi]
pTo := PChar(carpetaOrigen);
pFrom := PChar(carpetaDestion+#0#0);
[delphi]
debe decir
[delphi]
pFrom := PChar(carpetaOrigen);
pTo := PChar(carpetaDestion+#0#0);
[delphi]
|