Private Sub Export() Handles Button1.Click
        Dim timestamp As String = My.Computer.FileSystem.ReadAllText( _
          "C:\Export\Data\timestamp.dll")
        If System.DateTime.Now.Hour = "0" Then
         If timestamp = System.DateTime.Now.DayOfYear Then
        Exit Sub
        Else
        Dim xl As New Microsoft.Office.Interop.Excel.Application
        Dim wb As Microsoft.Office.Interop.Excel.Workbook
        Dim ws As Microsoft.Office.Interop.Excel.Worksheet
         wb = xl.Workbooks.Add
        Dim kamera As String
        Dim ctr As Integer = 0
        Dim zähler As Integer = CheckedListBox1.CheckedItems.Count
        Do Until ctr = zähler
            kamera = CheckedListBox1.CheckedItems(ctr).ToString
            ctr = ctr + 1
           My.Computer.FileSystem.CreateDirectory("C:\Export\Exceltabellen\" & _
             kamera)
            Dim Datei As String = "C:\RR-Engineering\Export\Exceltabellen\" & _
            kamera & "\" & Format(Now, "yyyy-MM-dd_HH_mm_ss") & _
              ".xls"
            ws = wb.Worksheets(1)
            With ws.Cells(1, 1)
                .Value = "Aimetis In/Out Counter:"
                .Font.FontStyle = "lucida fax"
                .Font.Underline = True
                .Font.Bold = True
                .Font.Size = 12
            End With
            With ws.Cells(3, 1)
                .Value = "Datum:"
                .Font.Bold = True
            End With
             With ws.Cells(3, 3)
                .Value = "Count In:"
                .Font.Bold = True
            End With
            With ws.Cells(3, 4)
                .Value = "Count Out:"
                .Font.Bold = True
            End With
            With ws.Cells(5, 1)
               .value = "=HEUTE()"
            End With
            'Dim datum As Integer = 4
            'Dim zeit As Integer = 4
            Dim CIn As Integer = 4
            Dim COut As Integer = 4
            'Dim flag As Boolean = False
            'Dim sYear As String = System.DateTime.Now.Year.ToString
            'Dim sMonth As String = System.DateTime.Now.Month.ToString
            'Dim sDay As String = System.DateTime.Now.Day.ToString
            'datum = datum + 1
            'zeit = zeit + 1
            CIn = CIn + 1
            COut = COut + 1
            Dim CameraIni As String = My.Computer.FileSystem.ReadAllText( _
              "C:\1\camera.ini")
            Dim lines() As String = CameraIni.Split(Environment.NewLine)
            Dim CountIn As String = lines(19).Substring(15)
            Dim CountOut As String = lines(20).Substring(16)
            ws.Cells(CIn, 3).Value = CountIn
            ws.Cells(COut, 4).Value = CountOut
            Try
                wb.SaveAs(Datei, True)
            Catch fehler As Exception
                MsgBox(fehler.ToString)
            End Try
            wb.Close()
            ws = Nothing
            wb = Nothing
            xl.Quit()
            xl = Nothing
            My.Computer.FileSystem.WriteAllText("C:\Export\Data\timestamp.dll", _
              System.DateTime.Now.DayOfYear, False)
             End If
              Else
             Exit Sub
             End If
            abc = True
        Loop
    End Sub