Why won't my service stop?

[=?Utf-8?B?Sm9uYXRoYW4gU21pdGg=?=]

I have written a service, but it won't stop, Eventvwr reports the following:

"Failed to stop service"

The code is as follows:
=============== =============== ==============
Protected Overrides Sub OnStart(ByVal args() As String)
' Add code here to start your service. This method should set things
' in motion so your service can do its work.

Dim strFoldersFromR egistry As String
Dim strIntervalFrom Registry As String

Dim MyKey As RegistryKey =
Registry.LocalM achine.OpenSubK ey("Software\\D eleteFolders", True)

strFoldersFromR egistry = MyKey.GetValue( "FolderList ")
strIntervalFrom Registry = MyKey.GetValue( "Interval")

'Split the folder list into an array of individual entries
strFolderList = Split(strFolder sFromRegistry, ";")

'Start the timer and set the interval to the correct number of
milliseconds
Dim dblTimerInterva l As Double

dblTimerInterva l = CDbl(strInterva lFromRegistry)

Timer1.Interval = (dblTimerInterv al * 1000)
Timer1.Start()

EventLog1.Write Entry("Delete Folders", "DeleteFold ers is now
monitoring " & strFoldersFromR egistry)

End Sub
=============== =============== =============== =======
Protected Overrides Sub OnStop()
' Add code here to perform any tear-down necessary to stop your
service.

booRunning = False

'Stop the timer
Timer1.Stop()

EventLog1.Write Entry("DeleteFo lders is no longer monitoring folders")

End Sub
=============== =============== =============== ======
Private Sub Timer1_Elapsed( ByVal sender As System.Object, ByVal e As
System.Timers.E lapsedEventArgs ) Handles Timer1.Elapsed

Do While booRunning = True
'Do the "Delete Folders" routine for each folder in the list
Dim strCurrentFolde r As String

Dim MyFolder As New FileSystemObjec t

For Each strCurrentFolde r In strFolderList

If Len(strCurrentF older) = 0 Then Exit Sub

'Check the folder exists
If MyFolder.Folder Exists(strCurre ntFolder) = True Then

DeleteEmptyFold ers(strCurrentF older)
End If

Next

Loop
End Sub
=============== =============== =============== =======
Private Sub DeleteEmptyFold ers(ByVal strCurrentFolde r As String)
Dim fsoSubFolders As Folders
Dim fsoSubFolder As Folder
Dim fsoFolder As Folder

Dim strPaths()
Dim lngFolder As Long
Dim lngSubFolder As Long

Dim m_fsoObject = New FileSystemObjec t
If Not m_fsoObject.Fol derExists(strCu rrentFolder) Then Exit Sub

fsoFolder = m_fsoObject.Get Folder(strCurre ntFolder)

On Error Resume Next

'Has sub-folders
If fsoFolder.SubFo lders.Count 0 Then
lngFolder = 1
ReDim strPaths(fsoFol der.SubFolders. Count)
'Get each sub-folders path and add to an array
For Each fsoSubFolder In fsoFolder.SubFo lders
strPaths(lngFol der) = fsoSubFolder.Pa th
lngFolder = lngFolder + 1
Next fsoSubFolder

lngSubFolder = 1
'Recursively call the function for each sub-folder
Do While lngSubFolder < lngFolder
Call DeleteEmptyFold ers(strPaths(ln gSubFolder))
lngSubFolder = lngSubFolder + 1
Loop
End If

'No sub-folders or files
If fsoFolder.Files .Count = 0 And fsoFolder.SubFo lders.Count = 0 Then
fsoFolder.Delet e()
End If

End Sub

[Mr. Arnold]

You don't have any error handling anywhere where to be found, so if
something blew you wouldn't even know it. If it won't stop, then in most
cases I have seen, it's blown up.
"Jonathan Smith" <Jo***********@ discussions.mic rosoft.comwrote in message
news:CE******** *************** ***********@mic rosoft.com...

>I have written a service, but it won't stop, Eventvwr reports the
following:

"Failed to stop service"

The code is as follows:
=============== =============== ==============
Protected Overrides Sub OnStart(ByVal args() As String)
' Add code here to start your service. This method should set
things
' in motion so your service can do its work.

Dim strFoldersFromR egistry As String
Dim strIntervalFrom Registry As String

Dim MyKey As RegistryKey =
Registry.LocalM achine.OpenSubK ey("Software\\D eleteFolders", True)

strFoldersFromR egistry = MyKey.GetValue( "FolderList ")
strIntervalFrom Registry = MyKey.GetValue( "Interval")

'Split the folder list into an array of individual entries
strFolderList = Split(strFolder sFromRegistry, ";")

'Start the timer and set the interval to the correct number of
milliseconds
Dim dblTimerInterva l As Double

dblTimerInterva l = CDbl(strInterva lFromRegistry)

Timer1.Interval = (dblTimerInterv al * 1000)
Timer1.Start()

EventLog1.Write Entry("Delete Folders", "DeleteFold ers is now
monitoring " & strFoldersFromR egistry)

End Sub
=============== =============== =============== =======
Protected Overrides Sub OnStop()
' Add code here to perform any tear-down necessary to stop your
service.

booRunning = False

'Stop the timer
Timer1.Stop()

EventLog1.Write Entry("DeleteFo lders is no longer monitoring
folders")

End Sub
=============== =============== =============== ======
Private Sub Timer1_Elapsed( ByVal sender As System.Object, ByVal e As
System.Timers.E lapsedEventArgs ) Handles Timer1.Elapsed

Do While booRunning = True
'Do the "Delete Folders" routine for each folder in the list
Dim strCurrentFolde r As String

Dim MyFolder As New FileSystemObjec t

For Each strCurrentFolde r In strFolderList

If Len(strCurrentF older) = 0 Then Exit Sub

'Check the folder exists
If MyFolder.Folder Exists(strCurre ntFolder) = True Then

DeleteEmptyFold ers(strCurrentF older)
End If

Next

Loop
End Sub
=============== =============== =============== =======
Private Sub DeleteEmptyFold ers(ByVal strCurrentFolde r As String)
Dim fsoSubFolders As Folders
Dim fsoSubFolder As Folder
Dim fsoFolder As Folder

Dim strPaths()
Dim lngFolder As Long
Dim lngSubFolder As Long

Dim m_fsoObject = New FileSystemObjec t
If Not m_fsoObject.Fol derExists(strCu rrentFolder) Then Exit Sub

fsoFolder = m_fsoObject.Get Folder(strCurre ntFolder)

On Error Resume Next

'Has sub-folders
If fsoFolder.SubFo lders.Count 0 Then
lngFolder = 1
ReDim strPaths(fsoFol der.SubFolders. Count)
'Get each sub-folders path and add to an array
For Each fsoSubFolder In fsoFolder.SubFo lders
strPaths(lngFol der) = fsoSubFolder.Pa th
lngFolder = lngFolder + 1
Next fsoSubFolder

lngSubFolder = 1
'Recursively call the function for each sub-folder
Do While lngSubFolder < lngFolder
Call DeleteEmptyFold ers(strPaths(ln gSubFolder))
lngSubFolder = lngSubFolder + 1
Loop
End If

'No sub-folders or files
If fsoFolder.Files .Count = 0 And fsoFolder.SubFo lders.Count = 0
Then
fsoFolder.Delet e()
End If

End Sub

[=?Utf-8?B?Sm9uYXRoYW4gU21pdGg=?=]

I have now simplified the code as:

Protected Overrides Sub OnStart(ByVal args() As String)
' Add code here to start your service. This method should set things
' in motion so your service can do its work.

Dim strFoldersFromR egistry As String
Dim strIntervalFrom Registry As String

Dim MyKey As RegistryKey =
Registry.LocalM achine.OpenSubK ey("Software\\D eleteFolders", True)

strFoldersFromR egistry = MyKey.GetValue( "FolderList ")
strIntervalFrom Registry = MyKey.GetValue( "Interval")

'Split the folder list into an array of individual entries
strFolderList = Split(strFolder sFromRegistry, ";")

'Start the timer and set the interval to the correct number of
milliseconds
Dim dblTimerInterva l As Double

dblTimerInterva l = CDbl(strInterva lFromRegistry)

Timer1.Interval = (dblTimerInterv al * 1000)
Timer1.Enabled = True

EventLog1.Write Entry("Delete Folders", "DeleteFold ers is now
monitoring " & strFoldersFromR egistry)

End Sub
=============== =============== =============== ======
Protected Overrides Sub OnStop()
' Add code here to perform any tear-down necessary to stop your
service.

'Stop the timer
Timer1.Enabled = False

EventLog1.Write Entry("DeleteFo lders is no longer monitoring folders")

End Sub
=============== =============== =============== =====
Private Sub Timer1_Elapsed( ByVal sender As System.Object, ByVal e As
System.Timers.E lapsedEventArgs ) Handles Timer1.Elapsed

EventLog1.Write Entry("DeleteFo lders", CStr(Len(strFol derList)))

End Sub
I know the OnStart bit is working fine as the eventlog messages are being
reported correctly. But the service will still not stop.

Any ideas?

[Chris Dunaway]

On Jul 16, 7:46 am, Jonathan Smith
<JonathanSm...@ discussions.mic rosoft.comwrote :

I have now simplified the code as:

Protected Overrides Sub OnStart(ByVal args() As String)
' Add code here to start your service. This method should set things
' in motion so your service can do its work.

Dim strFoldersFromR egistry As String
Dim strIntervalFrom Registry As String

Dim MyKey As RegistryKey =
Registry.LocalM achine.OpenSubK ey("Software\\D eleteFolders", True)

strFoldersFromR egistry = MyKey.GetValue( "FolderList ")
strIntervalFrom Registry = MyKey.GetValue( "Interval")

'Split the folder list into an array of individual entries
strFolderList = Split(strFolder sFromRegistry, ";")

'Start the timer and set the interval to the correct number of
milliseconds
Dim dblTimerInterva l As Double

dblTimerInterva l = CDbl(strInterva lFromRegistry)

Timer1.Interval = (dblTimerInterv al * 1000)
Timer1.Enabled = True

EventLog1.Write Entry("Delete Folders", "DeleteFold ers is now
monitoring " & strFoldersFromR egistry)

End Sub
=============== =============== =============== ======
Protected Overrides Sub OnStop()
' Add code here to perform any tear-down necessary to stop your
service.

'Stop the timer
Timer1.Enabled = False

EventLog1.Write Entry("DeleteFo lders is no longer monitoring folders")

End Sub
=============== =============== =============== =====
Private Sub Timer1_Elapsed( ByVal sender As System.Object, ByVal e As
System.Timers.E lapsedEventArgs ) Handles Timer1.Elapsed

EventLog1.Write Entry("DeleteFo lders", CStr(Len(strFol derList)))

End Sub

I know the OnStart bit is working fine as the eventlog messages are being
reported correctly. But the service will still not stop.

Any ideas?

Have you tried Disposing of the timer? I'm not sure if that will
help, but it couldn't hurt.

Chris

[Mr. Arnold]

<snipped>

>
I know the OnStart bit is working fine as the eventlog messages are being
reported correctly. But the service will still not stop.

Any ideas?

It's called debug it. You should start dumping message into the eventlog
about code execution and where it's at in the code when it's not stopping.

Or you can start using the NetSend command sending the messages to the
machine name as to where you're at in the code for possible area/code
location for a possible pin point. You'll have to enable the NT based O/S's
Messenger service to have the messages displayed to you, if using the
Netsend.

No one here can debug your solution for you. That's something you're going
to have to do yourself.

[Kr3at]

Definitely need to debug the app.

I would also remove the on error resume next statement and replace it
with a try catch statement, this way if an error is thrown your can
handled if accordingly, ie write and entry to the eventlog.

I can see several scenarios where your application could run infinite
loops in the same directory. For example, lets say you have c:\test
with a sub directory of c:\test\sub. c:\test\sub contains a file
mydll.dll that is currently being used by the operating system or some
other application, and your service can not delete it. In this case,
and error will be throw, but your on error resume next will cause your
method to continually try to delete the file over and over again,
cause the service to hang.

There are several more scenarios, but this is my initial intuirion.

Kr3at
Developers, List your services.
http://directory.kr3at.com