RemoveDir(DirNameString);
Code: [Select]RemoveDir(DirNameString);Removes an empty Dir.
Result:=DeleteDirectory(NomeDir,True); if Result then begin Result:=RemoveDirUTF8(NomeDir); end;