Vb script to delete all subfolders in a folder except one

[dineshkumarkb]

Hi,

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

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