German Mehrere SQL.db in einer ViewList anzeigen

Sub Process_Globals
    Dim PathName As String    : PathName = File.DirInternal
End Sub

Sub Globals
    Dim ltvDatanbanken As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Dim i As Int
    Dim txt As String
    
    If FirstTime Then
        File.Copy(File.DirAssets, "Tag1.db", PathName, "Tag1.db")
        File.Copy(File.DirAssets, "Tag2.db", PathName, "Tag2.db")
        File.Copy(File.DirAssets, "Tag3.db", PathName, "Tag3.db")
    End If
    
    Activity.LoadLayout("main")
    
    Dim lst As List
    lst = File.ListFiles(PathName)
    For i = 0 To lst.Size - 1
        txt = lst.Get(i)
        If txt.EndsWith(".db") Then
            ltvDatanbanken.AddSingleLine(txt)
        End If
    Next
End Sub

Sub Activity_Resume
ltvDatanbanken.Clear
lst = File.ListFiles(PathName2)
   For i = 0 To lst.Size - 1
      txt = lst.Get(i)
      If txt.EndsWith(".db") Then
         ltvDatanbanken.AddSingleLine(txt)
      weiter=(i)+2
      End If
   Next
End Sub

Sub Button2_Click
SQL1.Initialize(PathName2, Datum&"_"&weiter&".db",True)
End Sub

Sub ltvDatanbanken_ItemClick (Position As Int, Value As Object)
   Dim listenpos As String
   listenpos=weiter-Position-1
   ToastMessageShow("Listenr.: "& listenpos, True)
End Sub

Sub ltvDatanbanken_ItemClick (Position As Int, Value As Object)
    DateiName = Value
End Sub