Private Sub goShowSavedLaps
Dim lst As List
Dim strTmp As String
lst.Initialize
'Eine Liste mit alle Dokumenten erstellen
lst = File.ListFiles(File.DirDocuments)
If lst.Size > 0 Then
lst.Sort(True)
clvStoredRace.Clear
For i = 0 To lst.Size -1
strTmp = lst.get(i)
If strTmp.EndsWith(ext) Then
strTmp = strTmp.Replace(ext,"")
clvStoredRace.Add(CreateLapListItem(strTmp, clvStoredRace.GetWidth, 50dip), lst.get(i))
End If
Next
Else
hd.ToastMessageShow("NoLapSaved"), True)
End If
End Sub