FileSystemWatch er does not fire Created event

[Silver Oak]

Hi,

I'm experimenting with FileSystemWatch er but it doesn't seem like it fires
when a new file is created. Everytime I create a new file, it fires Changed
event i.e. Case WatcherChangeTy pes.Created never fires. Please point out my
mistake. Thanks.

Michael
Public Sub New(ByVal sToObserve As String)
m_sFileObserved = sToObserve
m_Watcher = New FileSystemWatch er
fiFileInfo = New FileInfo(m_sFil eObserved)
If (fiFileInfo.Exi sts = False) Then
With m_Watcher
.Path = m_sFileObserved
.Filter = "*.txt" '<--------------Only look at alarm
logs
.IncludeSubdire ctories = False
End With
Else
With m_Watcher
.Path = fiFileInfo.Dire ctoryName.ToStr ing
.Filter = fiFileInfo.Name .ToString
.IncludeSubdire ctories = False
End With
End If

m_Watcher.Notif yFilter = NotifyFilters.L astWrite Or
NotifyFilters.C reationTime

AddHandler m_Watcher.Chang ed, AddressOf OnChanged
AddHandler m_Watcher.Delet ed, AddressOf OnChanged
AddHandler m_Watcher.Renam ed, AddressOf OnRenamed
AddHandler m_Watcher.Error , AddressOf onError

m_Watcher.Enabl eRaisingEvents = True
End Sub

Private Sub OnChanged(ByVal source As Object, _
ByVal e As FileSystemEvent Args)
Dim sChange As String
Select Case e.ChangeType
Case WatcherChangeTy pes.Changed
sChange = "Changed"
Case WatcherChangeTy pes.Created
sChange = "Created"
Case WatcherChangeTy pes.Deleted
sChange = "deleted"
End Select
end sub