Vb script to delete all subfolders in a folder except one

Hi,

I want a vbscript to delete all the subfolders except one.This is my code.Please help me sort this issue..

Code:

---

dim test
dim path
set test=createObject("Scripting.Filesystemobject")
path="C:\Documents and Settings\dinesh\Desktop\NewFolder"
set a=test.getfolder("C:\Documents and Settings\dinesh\Desktop\NewFolder")
set fn=a.subfolders
for each b in fn
    if b.name <> Required then
        test.deletefile path & "\*.*",true
        test.deletefolder path & "\*.*",true
    end if
next

---

Thanks in Advance