per poter eliminare una directory è necessario che questa non contenga file, quindi devi prima fare la Kill di tutti i file e poi la RmDir.
codice:
strpath = "C:\Archivio\pippo\"
Kill (strpath & "*.*")
RmDir (strpath)