Or you could use the filesystemobject. It will delete folder/files and all.

Code:
Dim fso

Set fso=CreateObject("scripting.filesystemobject")
fso.DeleteFolder("c:\windows\desktop\junk")