Private Sub Timer_Timer()
  Dim firststart As String
  Dim suche As String
  Dim pfad As String
  Dim kill As String
  Dim id3 As String
  Dim F As Integer
 
  Timer.Enabled = False
 
  Set FSO = New FileSystemObject
  lblInfo.Caption = "Aktualisierung wird duchgeführt ..."
 
  firststart = 1  
  If FileSize(App.Path & "\startup.str") > 0 Then
    F = Freeile: Open App.Path & "\startup.str" For Input As #F
    If Not Eof(F) Then Line Input #F, firststart
    If Not Eof(F) Then Line Input #F, suche
    If Not Eof(F) Then Line Input #F, pfad
    If Not Eof(F) Then Line Input #F, kill
    If Not Eof(F) Then Line Input #F, id3
    Close #F
  End If
 
  If firststart = 1 Then
    MsgBox "Dies ist der erste Start des Programms, " & vbNewLine & _
      " es müssen als erstes Daten importiert werden"
 
    F = FreeFile: Open App.Path & "\startup.str" For Output As #F
    Print #F, 0
    Print #F, suche
    Print #F, pfad
    Print #F, kill
    Print #F, id3
    Close #F
 
    frmDBverwalten.Show
    Unload Me
    Exit Sub
  End If
 
  Call dbverbinden
  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
  frmDatabase.Show
  Unload Me
End Sub

Private Sub FileSize(ByVal sFile As String) As Long
  On Error Resume Next
  FileSize = FileLen(sFile)
  On Error Goto 0
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de