ADim myLog As New EventLog("Application", ".")
For Each entry As EventLogEntry In myLog.Entries
If entry.Source = "MySource" Then
PersistToDB(entry)
End If
Next
BDim myLog As New EventLog("Application", ".")
myLog.Source = "MySource"
For Each entry As EventLogEntry In myLog.Entries
If entry.EntryType = (EventLogEntryType.[Error] And EventLogEntryType.Warning) Then
PersistToDB(entry)
End If
Next
CDim myLog As New EventLog("Application", ".")
For Each entry As EventLogEntry In myLog.Entries
If entry.Source = "MySource" Then
If entry.EntryType = EventLogEntryType.[Error] OrElse entry.EntryType = EventLogEntryType.
Warning Then
PersistToDB(entry)
End If
End If
Next
DDim myLog As New EventLog("Application", ".")
myLog.Source = "MySource"
For Each entry As EventLogEntry In myLog.Entries
If entry.EntryType = EventLogEntryType.[Error] OrElse entry.EntryType = EventLogEntryType.
Warning Then
PersistToDB(entry)
End If
Next