Cacher is the code snippet organizer for pro developers

'------------- USAGE --------------------

DeleteFolder("<machine>","\\<machine>\c$\Documents and Settings\xtomlatham")

'------------- FUNCTION -----------------

' Attempt to delete specifed folder. Fails on folder not found or deleted.
Function DeleteFolder(sComputer, sFolderPath)
  
	Dim oFS : Set oFS = CreateObject("Scripting.FileSystemObject")

	If (oFS.FolderExists(sFolderPath)) Then
		Dim oFolder : Set oFolder = oFS.GetFolder(sFolderPath)
		Err.Clear
		oFolder.Delete(True)
		
		If (Err.Number <> 0) Then
			wScript.Echo "Could not delete folder."
			DeleteFolder = False
		Else
			wScript.Echo "Folder deleted."
			DeleteFolder = True
		End If
	Else
		wScript.Echo "Folder not found."
		DeleteFolder = False
	End If	
End Function