'1############ Arbeitspfad herausfinden ###################
        Dim Arbeitspfad As String
        Dim Datei As String
        Datei = System.Windows.Forms.Application.ExecutablePath
        Arbeitspfad = System.Windows.Forms.Application.StartupPath
        MsgBox("Datei wird ausgeführt in:   " & Arbeitspfad)
        '1########### Ende Arbeitspfad herausfinden ##################
 
        '2########### Abfrage ob sys.dat existiert, anlegen wenn nicht 
        ' ###################
        Dim ResultFile As Boolean
 
        ResultFile = System.IO.File.Exists(Arbeitspfad & "\sys.dat")
 
        If ResultFile = True Then
            ' File existiert
        Else
            ' File existiert nicht
            MsgBox("sys.dat wird angelegt")
            System.IO.File.Create(Arbeitspfad & "\sys.dat")
        End If
        '2############Ende Abfrage sys.dat #####################