Bonjour a tout le monde
J’espère que ce temps maussade n’ampute pas votre humeur
Ci dessous le code d'un test pour mettre en place un service, mais mon fichier qui devrait apparaitre dans le rép c:\intel\ n'apparait pas
Quelqu'un voit la faute , ou autre chose, sachant que la mise en place du service se fait correctement et que le service démarre bien.
Le service est en mode démarrage " mode manuel " et utilisateur LocalService.
Merci de votre aide


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Imports System.IO.File
Public Class TDGServices
 
      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.
            Timer1.Enabled = True
            Timer1.Interval = 15000
 
      End Sub
 
      Protected Overrides Sub OnStop()
            ' Add code here to perform any tear-down necessary to stop your service.
            Timer1.Enabled = False
 
      End Sub
 
      Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
 
            FileOpen(1, "c:\intel\TESTFILE.txt", OpenMode.Output) ' Open file for output.
            Write(1, "This is a test.")  ' Print text to file.
            FileClose(1)
 
      End Sub
 
End Class