Originariamente inviato da darkblOOd
esiste l'oggetto FOLDER?

se esiste puoi fare:
codice:
Dim rFolder as FOLDER
For Each rFolder in mioCestino.Folders
  rFolder.Remove
Next
al limite prova con Object generico e questo codice:
codice:
Dim rFolder as Object
for each rFolder in mioCestino.Folders
   if typeOf rFolder is mioCestino.Folders.Item
       ctype(rFolder, mioCestino.Folder.item).remove
   End If
next
anche se non credo funzioni perchè Item dovrebbe essere una propietà e non un oggetto
sto provando col primo esempio :incrociamoledita:

il secondo non funziona sicuramente perchè l'oggetto Item della cartella è diverso dall'oggetto Folder.