Option Explicit
 
Private Sub Form_Load()
    Dim i As Integer
 
    File1.Path = "c:\"
    list1fuellen
End Sub
 
Private Sub Timer1_Timer()
    Dim i As Integer
    Dim ii As Integer
    Dim vorhanden As Boolean
    Dim neufuellen As Boolean
 
    File1.Refresh
    For i = 0 To File1.ListCount - 1
        For ii = 0 To List1.ListCount - 1
            If File1.List(i) = List1.List(ii) Then
                vorhanden = True
                Exit For
            Else
                vorhanden = False
            End If
        Next
        If vorhanden = False Then
            neufuellen = True
            MsgBox "Datei " & File1.List(i) & " wurde neu erstellt!"
        End If
    Next
 
    If neufuellen = True Then
        neufuellen = False
        [color=green]'neu füllen wenn auf c: dateien hinzugekommen sind
        list1fuellen
    Else
        For i = 0 To List1.ListCount - 1
            For ii = 0 To File1.ListCount - 1
                If List1.List(i) = File1.List(ii) Then
                    vorhanden = True
                    Exit For
                Else
                    vorhanden = False
                End If
            Next
            If vorhanden = False Then
                [color=green]'neu füllen wenn von c: dateien gelöscht 
                ' wurden
                list1fuellen
                Exit For
            End If
        Next
    End If
End Sub
 
Private Sub list1fuellen()
    Dim i As Integer
 
    List1.Clear
    For i = 0 To File1.ListCount - 1
        List1.AddItem File1.List(i)
    Next
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...