Private Sub Timer_Timer()
Dim firststart As String
Dim suche As String
Dim pfad As String
Dim kill As String
Dim id3 As String
Set FSO = New FileSystemObject
 
 
lblInfo.Caption = "Aktualisierung wird duchgeführt ..."
 
Call dbverbinden
    Open App.Path & "\startup.str" For Input As #4
        Line Input #4, firststart
        Line Input #4, suche
        Line Input #4, pfad
        Line Input #4, kill
        Line Input #4, id3
    Close #4
 
If firststart = 1 Then
    MsgBox "Dies ist der erste Start des Programms, " & vbNewLine & " es müssen" & _
      "als erstes Daten importiert werden"
        Open App.Path & "\startup.str" For Output As #5
            Print #5, 0
            Print #5, suche
            Print #5, pfad
            Print #5, kill
            Print #5, id3
        Close #5
    Call dbtrennen
    frmDBverwalten.Show
    Unload Me
    Exit Sub
End If
 
If suche = 1 Or suche = 2 Then
    lblInfo.Caption = "Dateien werden gesucht ..."
    DoSearch pfad, frmStart.lblfound, frmStart.lblPfad
    lblPfad = ""
    Set FSO = Nothing
End If
 
If kill = 1 Or kill = 2 Then
    lblInfo.Caption = "Dateileichen werden gelöscht ..."
    lblInfo.Caption = cleanDB & " Leichen gelöscht"
End If
 
If id3 = 1 Or id3 = 2 Then
    lblInfo.Caption = "ID3 Tags werden aktualisiert"
    If writeid3DB("alles", "", frmStart) = True Then
        lblInfo.Caption = "ID3 Tags wurden eingetragen"
    End If
End If
 
Call dbtrennen
Timer.Enabled = False
frmDatabase.Show
Unload Me
End Sub