[RaggiTech]

لو أردت أن تتأكد هل هناك سجل باسم معين موجود أم لا

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim SourceName As String = "Application"

If EventLog.SourceExists(SourceName) Then
MessageBox.Show("Found" & SourceName)
Else
MessageBox.Show("Not Found" & SourceName)
End If

End Sub

قمت بتكوين فئة وارسلتها للتأكد من وجود سجل باسم معين من المتغير SourceName

وارسلته ليتأكد من وجود السجل Application وبالفعل سيجده

غير الكلمة بسجل غير موجود ستعود لك الرسالة بعدم وجود السجل