Cant write to file from windows service

[Seth]

For some reason my service works fine except that it will create the
file in my c drive, but will not write to the file.

Sorry if this is a duplicate post, i have found some that ask the same
question - but noone seems to answer.

Do i need to do anything specific to write to a text file from a
windows service, much appreciated.

Imports System
Imports System.ServiceP rocess
Imports System.Diagnost ics
Imports System.Net.Http WebRequest
Imports System.Net.Http WebResponse
Public Class SHIM
Inherits System.ServiceP rocess.ServiceB ase

Private tw As TextWriter
Private eLog As New EventLog("", ".", "SHIM")

'Private HttpWReq As HttpWebRequest =
CType(WebReques t.Create("https ://trading.harbors ideplus.com"),
HttpWebRequest)
'Private HttpWReq As HttpWebRequest =
WebRequest.Crea te("https://trading.harbors ideplus.com")
'Private HttpWResp As HttpWebResponse =
CType(HttpWReq. GetResponse(), HttpWebResponse )

#Region " Component Designer generated code "

Public Sub New()
MyBase.New()

' This call is required by the Component Designer.
InitializeCompo nent()
' Add any initialization after the InitializeCompo nent() call
End Sub

'UserService overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As
Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Disp ose()
End If
End If
MyBase.Dispose( disposing)
End Sub

' The main entry point for the process
<MTAThread()> _
Shared Sub Main()
Dim ServicesToRun() As System.ServiceP rocess.ServiceB ase

' More than one NT Service may run within the same process. To
add
' another service to this process, change the following line
to
' create a second service object. For example,
'
' ServicesToRun = New System.ServiceP rocess.ServiceB ase ()
{New Service1, New MySecondUserSer vice}
'
ServicesToRun = New System.ServiceP rocess.ServiceB ase() {New
SHIM}

System.ServiceP rocess.ServiceB ase.Run(Service sToRun)
End Sub

'Required by the Component Designer
Private components As System.Componen tModel.IContain er

' NOTE: The following procedure is required by the Component
Designer
' It can be modified using the Component Designer.
' Do not modify it using the code editor.
<System.Diagnos tics.DebuggerSt epThrough()> Private Sub
InitializeCompo nent()
'
'SHIM
'
Me.ServiceName = "SHIM"

End Sub

#End Region

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.
tw = New TextWriter("c:\ shim.log")
eLog.WriteEntry ("In SHIM onStart...")
'Note A service application is designed to be long running.
'As such, it usually polls or monitors something in the
system.
'The monitoring is set up in the OnStart method. However,
'OnStart does not actually do the monitoring.
'The OnStart method must return to the operating system once
the service's operation has begun.
'It must not loop forever or block. To set up a simple polling
mechanism,
'you can use the System.Timers.T imer component.
'In the OnStart method, you would set parameters on the
component,
'and then you would set the Timer.Enabled property to true.
'The timer would then raise events in your code periodically,
'at which time your service could do its monitoring.

'' Turn off connection keep-alives.
'HttpWReq.KeepA live = False
'' Allow Redirection.
'HttpWReq.Maxim umAutomaticRedi rections = 4service
'HttpWReq.Allow AutoRedirect = True
'' Set the 'Timeout' property of the HttpWebRequest to 10
milli seconds.
'HttpWReq.Timeo ut = 3600
''Display the 'Timeout' property of the 'HttpWebRequest ' on
the console.
''Console.Write Line("\nThe timeout time of the request after
setting the timeout is {0} milliSeconds.", myHttpWebReques t.Timeout);

'' Get the HTTP protocol version number returned by the
server.
'Dim ver As String = HttpWResp.Proto colVersion.ToSt ring()
'tw.writeLine(" The Harborside Plus Web Server Version is: " +
ver)

End Sub

Protected Overrides Sub OnStop()
' Add code here to perform any tear-down necessary to stop
your service.
eLog.WriteEntry ("In SHIM onStop...")
End Sub
End Class

Option Explicit On
Option Strict On
Imports System
Imports System.IO
Public Class TextWriter
Private sr As StreamWriter
Private dt As DateTime

Public Sub New(ByVal sString As String)
dt = New DateTime
sr = New StreamWriter(sS tring, True)
sr.WriteLine("T his is a test...")
writeLine("Star t of Log...")
'If File.Exists(sSt ring) Then
' Console.WriteLi ne("{0} already exists.", FILE_NAME)
' Return
'End If
End Sub
Protected Overrides Sub Finalize()
sr.Close()
MyBase.Finalize ()
End Sub
Public Sub writeLine(ByVal sString As String)
sr.WriteLine(fo rmatText(sStrin g))
End Sub
Private Function formatText(ByVa l sString As String) As String
Dim ss As String

ss = String.Concat(d t.Now.ToString( "F"), ": ", sString)
Return ss
End Function
End Class