With ListView1
        Dim newitem As ListItem
        For i = 1 To 200
            s = IniRead("test", (i))
            If FileExists(App.Path & "\test\" & s) = True Then
                Set newitem = .ListItems.Add(, , s)
            Else
                MsgBox "Datei existiert nicht"
            End If       
        Next i
    End With