schlumpfger

So hatte ich es vorher versucht. Das Ergebnis ist das gleiche. Der Dienst läuft springt aber nicht in die Methode. Imports System.IO Imports System.Timers Public Class DwI2Excel Dim aTimer As New System.Timers.Timer() Protected Overrides Sub OnStart(ByVal args() As String) Dim Intervall As Integer = 10000 AddHandler aTimer.Elapsed, AddressOf OnTimedEvent aTimer.Interval = Intervall aTimer.Enabled = True 'GC.KeepAlive(aTimer) End Sub Protected Overrides Sub OnStop() aTimer.Enabled = False End Sub Private Shared Sub OnTimedEvent(ByVal source As Object, ByVal e As ElapsedEventArgs) File.Create("C:\test.txt") End Sub End Class

Hallo Leute, Ich sitze hier den ganzen Tag schon über folgendes Problem: Ich erstell einen Dienst mit VB.NET der nach einem Intervall eine Datei schreiben soll. Die Datei soll erstmal leer sein. Egal was ich probiere. Der Dienst läuft, aber eine Datei wird nicht erzeugt. Habe ich nen Denkfehler hier? Imports System.IO Imports System.Timers Public Class DwI2Excel Protected Overrides Sub OnStart(ByVal args() As String) Timer1.Enabled = True End Sub Protected Overrides Sub OnStop() Timer1.Enabled = False End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick File.Create("C:\test.txt") End Sub End Class Der Timer hat Testweise ein Intervall von 10000 msec. Was mach ich falsch? Ist bestimmt was blödes... Danke