Implementing Store System Event Sinks

Private Sub IExStoreAsyncEvents_OnDelete(ByVal pEventInfo As Exoledb.IExStoreEventInfo, ByVal bstrURLItem As String, ByVal lFlags As Long)

    Dim fso As Object
    Dim WinTmpFile As String
    Dim OnDeleteFile

'log file
    WinTmpFile = Environ("SystemDrive") & "\SinkLogs\VBOnDelete.log"
   
   
'Creation & Instantiation of Objects and setting their props
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Set OnDeleteFile = fso.OpenTextFile(WinTmpFile, 8, True)

'File ops.
    OnDeleteFile.WriteLine ("[VB Event Sink]        OnDelete()")
    OnDeleteFile.WriteLine ("  URL Src  Item:       " & bstrURLItem)
    OnDeleteFile.WriteLine ("  Flags:               " & "0x" & Hex(lFlags))
    OnDeleteFile.WriteBlankLines (1)
    OnDeleteFile.Close

'Close objects and release the memory used by them
    Set fso = Nothing
    
End Sub