'########################################################
'### Deletes a folder and all files contained therein ###
'### at the location supplied                         ###
'###                                                  ###
'### (c) Dirk Pelzer 2002                             ###
'########################################################
Option Explicit
Dim iRet

iRet = DeleteFolder ("C:\DPC")
wscript.echo "Error Code: " & iRet


Function DeleteFolder (strFolderName)
'Returns 0 on success an 1 on error

   Dim fso
   Dim folder

   Set fso = CreateObject("Scripting.FileSystemObject")
   err.clear
   on Error resume next
   Set folder = fso.GetFolder(strFolderName)
   If fso.FolderExists(strFolderName) Then folder.Delete

   Set folder = nothing
   set fso = nothing

   If err.number <> 0 Then 
      DeleteFolder = 1
   Else
      DeleteFolder = 0
   End if
   On error goto 0

End Function