Ya resolvi mi problema com el MoveFile. O que pasa ahora es que yo no consigo deletar las carpetas vacia. No me da ningun error, pero no deleta, apaga. Abajo la rutina para apagar las carpetas.
Código Delphi
[-]procedure TForm1.ApagaDir(const RootDir: String);
var
SearchRec : TSearchRec;
Erc: Byte;
begin
Try
ChDir(RootDir);
Erc := FindFirst('*.*',faAnyFile,SearchRec);
while Erc = 0 do
begin
if ((SearchRec.Name <> '.' ) and (SearchRec.Name <> '..')) then
begin
if (SearchRec.Attr and faDirectory>0) then
begin
ApagaDir(SearchRec.Name);
end
else
begin
end;
end;
Erc := FindNext (SearchRec);
Application.ProcessMessages;
end;
finally
if Length(RootDir) > 3 then
ChDir('..');
end;
end;