This is a start with your extensions using the UDF Dirplus. Dirplus also supports subdirectories too, so you could modify this to delete folders if necessary.
Code:
for each $file in dirplus("%userprofile%\desktop","/f mp3 docx doc xlsx xls pptx")
? $file
;del $file
next
