VBS Script to delete Folder

You can this simple .vbs script to delete folders:


************************************************


 '====================================================================
'
' NAME: 
'
' AUTHOR:  
' DATE  : 07/11/2012
'
' COMMENT: 
'exemplary damages arising out of or in any way relating to the use of this script, 
'including without limitation damages for loss of goodwill, work stoppage, 
'lost profits, loss of data, and computer failure or malfunction. 
'You bear the entire risk as to the quality and performance of this script.
'
'===================================================================

dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject")
If filesys.FolderExists("c:\example\") Then 
   filesys.DeleteFolder "c:\example"
     End If 


************************************************************