Imports System.ServiceProcess
Imports System.Threading
Imports System.IO
 
Public Class MyService
 
    Private simpleThread As Thread
 
    Protected Overrides Sub OnStart(ByVal args() As String)
        ' Code zum Starten des Dienstes hier einfügen. Diese Methode sollte 
        ' Vorgänge
        ' ausführen, damit der Dienst gestartet werden kann.
 
        simpleThread = New Thread(New ThreadStart(AddressOf SplitFNtoDirectory))
        simpleThread.Start()
 
    End Sub
 
    Protected Overrides Sub OnStop()
        ' Hier Code zum Ausführen erforderlicher Löschvorgänge zum Beenden des 
        ' Dienstes einfügen.
        simpleThread.Abort()
 
    End Sub
 
End Class

Imports System.ServiceProcess
 
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class MyService
    Inherits System.ServiceProcess.ServiceBase
 
    'UserService überschreibt den Löschvorgang, um die Komponentenliste zu 
    ' bereinigen.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub
 
    ' Der Haupteinstiegspunkt für den Prozess
    <MTAThread()> _
    <System.Diagnostics.DebuggerNonUserCode()> _
    Shared Sub Main()
        Dim ServicesToRun() As System.ServiceProcess.ServiceBase
 
        ' Innerhalb eines Prozesses können mehrere NT-Dienste ausgeführt 
        ' werden. Um einen
        ' weiteren Dienst zu diesem Prozess hinzuzufügen, ändern Sie die 
        ' folgende Zeile,
        ' um ein zweites Dienstobjekt zu erstellen. Zum Beispiel
        '
        '   ServicesToRun = New System.ServiceProcess.ServiceBase () {New 
        ' Service1, New MySecondUserService}
        '
        ServicesToRun = New System.ServiceProcess.ServiceBase() {New MyService}
 
        System.ServiceProcess.ServiceBase.Run(ServicesToRun)
    End Sub
 
    'Wird vom Komponenten-Designer benötigt.
    Private components As System.ComponentModel.IContainer
 
    ' Hinweis: Die folgende Prozedur ist für den Komponenten-Designer 
    ' erforderlich.
    ' Das Bearbeiten ist mit dem Komponenten-Designer möglich.  
    ' Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        components = New System.ComponentModel.Container()
        Me.ServiceName = "MyService"
        Me.AutoLog = True
    End Sub
 
End Class