حذف مجلدات فرعية

I`m new in VBS so please explain me how i use it:

I need cleare vbs script to delete All subfolder from spicific folder:

as i have folder under name Thinstall it`s path is :

C:\Documents and Settings\User name\Application Data\Thinstall