サンプルコード


Sub ListTasks()
    Dim ts As Object
    Set ts = CreateObject("Schedule.Service")
    ts.Connect
    
    Dim rootFolder As Object
    Set rootFolder = ts.GetFolder("\")
    
    Dim task As Object
    For Each task In rootFolder.GetTasks(0)
        Debug.Print "Task Name: " & task.Name
        Debug.Print "Task Path: " & task.Path
        
        Dim action As Object
        For Each action In task.Definition.Actions
            Debug.Print "Action: " & action.Path
        Next action
        
        Dim trigger As Object
        For Each trigger In task.Definition.Triggers
            Debug.Print "Trigger Type: " & trigger.Type
            If trigger.Type = 3 Then
                Debug.Print "Trigger Start Time: " & trigger.StartBoundary
                Debug.Print "Trigger Days: " & trigger.DaysOfWeek
                Debug.Print "Trigger Interval: " & trigger.Interval
                Debug.Print "Trigger Duration: " & trigger.ExecutionTimeLimit
            End If
        Next trigger
        
        Debug.Print "-------------------------"
    Next task
End Sub