Protected Overrides Sub OnStart(ByVal args() As String)
        FSW_SpK.Path = directory
        AddHandler FSW_SpK.Created, AddressOf OnDeleted
    End Sub
 
    Protected Overrides Sub OnStop()
        ' Hier Code zum Ausführen notwendiger Löschvorgänge zum Anhalten des 
        ' Dienstes einfügen.
    End Sub
 
    Private directory As String = _
      System.Configuration.ConfigurationSettings.AppSettings("readtxt")
    Private FileNameOut As String = _
    System.Configuration.ConfigurationSettings.AppSettings("writetxt")
 
    Private Sub OnDeleted(ByVal source As Object, ByVal e As _
      FileSystemEventArgs)
        ' Specify what is done when a file is created.
        Dim value As String
        value = e.Name
        datei_lesen(value)
    End Sub
 
    Sub datei_lesen(ByVal value)
        directory = directory & "." & value
        Dim Reader As System.IO.StreamReader = New System.IO.StreamReader( _
          directory, System.Text.Encoding.Default)
        Dim Content As String = Reader.ReadToEnd
        Content = Content.Replace(Environment.NewLine, "")
        Dim Writer As System.IO.StreamWriter = New System.IO.StreamWriter( _
          FileNameOut, True, System.Text.Encoding.Default)
        Writer.Write(Content)
        Writer.Flush()
        Writer.Close()
    End Sub