'TaskScheduler' - https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx
'DeleteFolder' - https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx


This creates a folder in 'TaskScheduler': 
Private Sub CreateFldr()
    Dim NewFldr As ITaskFolder
    Dim TaskSched As ITaskService
        Set TaskSched = CreateObject("Schedule.Service")
        Call TaskSched.Connect
        Set NewFldr = TaskSched.GetFolder("\").CreateFolder("NewFolder")
        Set NewFldr = Nothing
        Set TaskSched = Nothing
End Sub
This deletes the folder: 
Private Sub DeleteFldr_Object()
    Dim NewFldr As ITaskFolder
    Dim TaskSched As Object
        Set TaskSched = CreateObject("Schedule.Service")
        Call TaskSched.Connect
        On Error Resume Next
        Set NewFldr = TaskSched.GetFolder("\").DeleteFolder("NewFolder", 0)
        On Error GoTo 0
        Set NewFldr = Nothing
        Set TaskSched = Nothing
End Sub
But without the 'On Error Resume Next', it gets this error(but still deletes the folder):
WithoutOnErrorResumeNext.jpg
This: 
Private Sub DeleteFldr_Object()
    Dim NewFldr As ITaskFolder
    Dim TaskSched As Object
        Set TaskSched = CreateObject("Schedule.Service")
        Call TaskSched.Connect
        TaskSched.GetFolder("\").DeleteFolder("NewFolder", 0)
        Set NewFldr = Nothing
        Set TaskSched = Nothing
End Sub
Makes 'TaskSched.GetFolder("\").DeleteFolder("NewFolder", 0)' turn red, and gives this error:
NoSetEquals.jpg
Replacing 'Object' with 'ITaskService': 
Private Sub DeleteFldr_ITaskService()
    Dim NewFldr As ITaskFolder
    Dim TaskSched As ITaskService
        Set TaskSched = CreateObject("Schedule.Service")
        Call TaskSched.Connect
        On Error Resume Next
        Set NewFldr = TaskSched.GetFolder("\").DeleteFolder("NewFolder", 0)
        On Error GoTo 0
        Set NewFldr = Nothing
        Set TaskSched = Nothing
End Sub
Results in this error, while '.DeleteFolder' gets selected/highlighted:
ITaskService.jpg