Global.aspx And FileSystemWatch er Problem

[PadovaBoy]

Hi!
I try to develop a simple system for monitoring a sub directory of a
web site and remake an xml file every time a sub-dir change it's name.
I don't wont to use a window.service because, i want to use the same
system in many web-site.

I have just write some line of code...but i have a problem:
when i change the name of a file..i fire-up the Application_end events
.... why?
how i can meange the event of the filesystemwatch er?

Tnx at all for any suggestion.
Please ...escuse me for my english!!!
Bye

MyCode:

[GLOBAL.ASAX]
<%@ Application language="VB" inherits="myGlo bal" Classname="Main App"
debug="true" %>

[GLOBAL.VB]
Protected Sub Application_sta rt(sender As Object, e As EventArgs)

'myWhatcher is the my object that will be store in the application

Dim objMyWath as new myWhatcher(Serv er.MapPath("/repository/") )
try
Application.loc k()
Application.Add ( "A_objMyWat h" , objMyWath )
catch ex as exception
...
finally
application.unl ock()
end try

end sub

Public Sub Application_End (sender As Object, e As EventArgs)
Dim fsw = Application("A_ objMyWath")
Application.Rem ove( "A_objMyWat h" )
fsw.Dispose()
end sub
----------------------------

[myWhatcher.vb]
public class myWhatcher
'make a FileSystemWatch er with events..
protected WithEvents fsw as new System.IO.FileS ystemWatcher

'the path to monitorize
Public pathToAnalize as String

Public Sub New(ByRef path As String)
pathToAnalize = path
'set the FileSystemWatch er object
fsw.IncludeSubd irectories = True
fsw.Path = pathToAnalize
fsw.EnableRaisi ngEvents = True
end sub

'function fired-up by the event (rename)
Private Sub fsw_OnRename(By Val sender As System.Object, ByVal e As
System.IO.Renam edEventArgs) Handles FSW.Renamed
Dim swz As StreamWriter = New StreamWriter("L :\pippo\test.tx t ")
try
If System.IO.Direc tory.Exists(e.F ullPath) Then
... some operation
End If
catch ex as Exception
end try

End Sub

public sub dispose()
fsw.dispose()
end sub

end class

[Bruce Barker]

asp.net also uses a filewatcher. when it detects a change, it recycles the
site, thus your Application_end .

a windows service is the best choice.

-- bruce (sqlwork.com)

"PadovaBoy" <pa*******@hotm ail.com> wrote in message
news:a0******** *************** *********@4ax.c om...

Hi!
I try to develop a simple system for monitoring a sub directory of a
web site and remake an xml file every time a sub-dir change it's name.
I don't wont to use a window.service because, i want to use the same
system in many web-site.

I have just write some line of code...but i have a problem:
when i change the name of a file..i fire-up the Application_end events
... why?
how i can meange the event of the filesystemwatch er?

Tnx at all for any suggestion.
Please ...escuse me for my english!!!
Bye

MyCode:

[GLOBAL.ASAX]
<%@ Application language="VB" inherits="myGlo bal" Classname="Main App"
debug="true" %>

[GLOBAL.VB]
Protected Sub Application_sta rt(sender As Object, e As EventArgs)

'myWhatcher is the my object that will be store in the application

Dim objMyWath as new myWhatcher(Serv er.MapPath("/repository/") )
try
Application.loc k()
Application.Add ( "A_objMyWat h" , objMyWath )
catch ex as exception
...
finally
application.unl ock()
end try

end sub

Public Sub Application_End (sender As Object, e As EventArgs)
Dim fsw = Application("A_ objMyWath")
Application.Rem ove( "A_objMyWat h" )
fsw.Dispose()
end sub
----------------------------

[myWhatcher.vb]
public class myWhatcher
'make a FileSystemWatch er with events..
protected WithEvents fsw as new System.IO.FileS ystemWatcher

'the path to monitorize
Public pathToAnalize as String

Public Sub New(ByRef path As String)
pathToAnalize = path
'set the FileSystemWatch er object
fsw.IncludeSubd irectories = True
fsw.Path = pathToAnalize
fsw.EnableRaisi ngEvents = True
end sub

'function fired-up by the event (rename)
Private Sub fsw_OnRename(By Val sender As System.Object, ByVal e As
System.IO.Renam edEventArgs) Handles FSW.Renamed
Dim swz As StreamWriter = New StreamWriter("L :\pippo\test.tx t ")
try
If System.IO.Direc tory.Exists(e.F ullPath) Then
... some operation
End If
catch ex as Exception
end try

End Sub

public sub dispose()
fsw.dispose()
end sub

end class