Public Function GetJobs()
 
  On Error GoTo GetJobs_Error
 
  frmMain.lvCronJobs.ListItems.Clear
  frmMain.lvCronTab.ListItems.Clear
 
  Buffer = ""
  Buffer2 = ""
 
  ff = FreeFile
 
  Open "TabList.txt" For Input As #ff
  Do While Not EOF(ff)
    Line Input #ff, Buffer
    Buffer2 = Buffer2 & Buffer & vbCrLf
  Loop
  Close #ff
 
  CronTab = Split(Buffer2, vbCrLf)
  gesJobs = 0
 
  o = 0
 
  For i = 0 To UBound(CronTab) - 1 Step 1
 
    ff = FreeFile
 
    If Not CronTab(i) = "" Then
 
        Open CronTab(i) For Input As #ff
        Do While Not EOF(ff)
          Line Input #ff, Buffer
          If Not Left(Buffer, 1) = "#" And Not Trim(Buffer) = "" Then
            SplitJob (Buffer)
 
            Set oItem = frmMain.lvCronJobs.ListItems.Add(, , Aufruf)
            oItem.SubItems(1) = Minute
            oItem.SubItems(2) = Stunde
            oItem.SubItems(3) = Tag
            oItem.SubItems(4) = Monat
            oItem.SubItems(5) = Wochentag
            JobNext(o) = Minute & "|" & Stunde & "|" & Tag & "|" & Monat & "|" _
              & Wochentag & "|" & Aufruf
            o = o + 1
 
          End If
        Loop
        Close #ff
 
    Set oItem = frmMain.lvCronTab.ListItems.Add(, , CronTab(i))
    oItem.SubItems(1) = CStr(o)
 
    End If
 
  Next i
 
  Exit Function
GetJobs_Error:
  MsgBox Err.Number & " " & Err.Description, vbCritical, "GetJobs_Error"
End Function