Start a .bat file using a windows service

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.
        MyTimer.Enabled = True
        StartFile(i)
    End Sub
 
    Protected Overrides Sub OnStop()
        ' Add code here to perform any tear-down necessary to stop your service.
        MyTimer.Enabled = False
    End Sub
 
    Private counter As Integer
    Private i As Integer = 1
 
 
 
    Private Sub StartFile(ByVal int As Integer)
        Try
            Dim objStreamWriter As System.IO.StreamWriter
            Dim strFName As String = "C:\LatestOne.txt"
 
            If File.Exists(strFName) Then
                Dim FILENAME As String = strFName
                objStreamWriter = File.AppendText(FILENAME)
                objStreamWriter.BaseStream.Seek(0, SeekOrigin.End)
                objStreamWriter.WriteLine("This is the " & int & " time the file was writen" & Constants.vbLf)
                objStreamWriter.Flush()
                objStreamWriter.Close()
            Else
                objStreamWriter = File.CreateText(strFName)
                objStreamWriter.BaseStream.Seek(0, SeekOrigin.End)
                objStreamWriter.WriteLine("This is the " & int & " time the file was writen" & Constants.vbLf)
                objStreamWriter.Flush()
                objStreamWriter.Close()
            End If
 
        Catch ex As Exception
            MsgBox("Error starting the file", MsgBoxStyle.OkOnly, "Service Error")
        End Try
 
    End Sub
 
    Private Sub MyTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyTimer.Tick
        If counter >= 10 Then
            ' Exit loop code.
            StartFile(i)
            counter = 0
            i += 1
 
        Else
            ' Run your procedure here.
            ' Increment counter.
            i += 1
            counter = counter + 1
            Dim objStreamWriter As System.IO.StreamWriter
            Dim strFName As String = "C:\LatestOne.txt"
 
            If File.Exists(strFName) Then
                Dim FILENAME As String = strFName
                objStreamWriter = File.AppendText(FILENAME)
                objStreamWriter.BaseStream.Seek(0, SeekOrigin.End)
                objStreamWriter.WriteLine("This is the " & i & " time the file was writen" & Constants.vbLf)
                objStreamWriter.Flush()
                objStreamWriter.Close()
            Else
                objStreamWriter = File.CreateText(strFName)
                objStreamWriter.BaseStream.Seek(0, SeekOrigin.End)
                objStreamWriter.WriteLine("This is the " & i & " time the file was writen" & Constants.vbLf)
                objStreamWriter.Flush()
                objStreamWriter.Close()
            End If
End If
    End Sub

                                  

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74: