Oppure
On Error Resume next Kill App.Path & "\Cartella da cancellare\*.*" RmDir App.Path & "\Cartella da cancellare"