Dim definition As New ReportDefinition
definition.reportName = "CRITERIA_PERFORMANCE_REPORT ECG"
definition.reportType = ReportDefinitionReportType.CRITERIA_PERFORMANCE_REPORT 'CRITERIA_PERFORMANCE_REPORT 'CAMPAIGN_PERFORMANCE_REPORT
definition.downloadFormat = DownloadFormat.GZIPPED_CSV
definition.dateRangeType = ReportDefinitionDateRangeType.LAST_7_DAYS
' Create the selector.
Dim selector As New Selector
selector.fields = New String() {"CampaignId", "AdGroupId", "Id", "CriteriaType", "Criteria", _
"CriteriaDestinationUrl", "Clicks", "Impressions", "Cost"}
Dim predicate As New Predicate
predicate.field = "Status"
predicate.operator = PredicateOperator.IN
predicate.values = New String() {"ACTIVE", "PAUSED"}
selector.predicates = New Predicate() {predicate}
definition.selector = selector
definition.includeZeroImpressions = True
Dim filePath As String = ExampleUtilities.GetHomeDir() & Path.DirectorySeparatorChar & fileName
Try
Dim utilities As New ReportUtilities(user, "v201409", definition)
utilities.GetResponse().Save(filePath)
Console.WriteLine("Report was downloaded to '{0}'.", filePath)
Catch ex As Exception
Throw New System.ApplicationException("Failed to download report.", ex)
End Try