FileSystemWatcher does not fire Created event

[Silver Oak]

Hi,

I'm experimenting with FileSystemWatcher 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 WatcherChangeTypes.Created never fires. Please point out my
mistake. Thanks.

Michael
Public Sub New(ByVal sToObserve As String)
m_sFileObserved = sToObserve
m_Watcher = New FileSystemWatcher
fiFileInfo = New FileInfo(m_sFileObserved)
If (fiFileInfo.Exists = False) Then
With m_Watcher
.Path = m_sFileObserved
.Filter = "*.txt" '<--------------Only look at alarm
logs
.IncludeSubdirectories = False
End With
Else
With m_Watcher
.Path = fiFileInfo.DirectoryName.ToString
.Filter = fiFileInfo.Name.ToString
.IncludeSubdirectories = False
End With
End If

m_Watcher.NotifyFilter = NotifyFilters.LastWrite Or
NotifyFilters.CreationTime

AddHandler m_Watcher.Changed, AddressOf OnChanged
AddHandler m_Watcher.Deleted, AddressOf OnChanged
AddHandler m_Watcher.Renamed, AddressOf OnRenamed
AddHandler m_Watcher.Error, AddressOf onError

m_Watcher.EnableRaisingEvents = True
End Sub

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