Zálohování NT EventLogu

Private Declare Function BackupEventLog Lib "advapi32.dll" Alias    "BackupEventLogA" ( _
   ByVal hEventLog As Long, _
   ByVal lpBackupFileName As String) _
   As Long

Private Declare Function CloseEventLog Lib "advapi32.dll" ( _
   ByVal hEventLog As Long) _
   As Long

Private Declare Function OpenEventLog Lib "advapi32.dll" _
   Alias "OpenEventLogA" ( _
   ByVal lpUNCServerName As String, _
   ByVal lpSourceName As String) _
   As Long

Na formulář přidejte tlačítko a na jeho událost click:
Private Sub Command1_Click()

   Dim hEventLog As Long
   Dim lretv As Long

   hEventLog = OpenEventLog(vbNullString, "Application")
   If hEventLog = 0 Then
      Debug.Print "Chyba při otevírání EventLogu"
      Exit Sub
   Else
      Debug.Print "Otevření EventLogu"
   End If

   lretv = BackupEventLog(hEventLog, "c:\appback.evt")
   If lretv = 0 Then
      Debug.Print "Chyba při záloze EventLogu"
      Exit Sub
   Else
      Debug.Print "Záloha proběhla úspěšně"
   End If

   lretv = CloseEventLog(hEventLog)
   If lretv = 0 Then
      Debug.Print "Chyba při zavírání EventLogu"
      Exit Sub
   Else
      Debug.Print "Zavření EventLogu"
   End If

End Sub

Zpět