Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Dim HList As List
HList = File.ReadList(File.DirAssets,"daten/main")
' HList: data_1
' data2
If File.Exists(File.DirAssets,"daten/data_1") Then Msgbox("1","")
Dim HString As String
HString = HList.Get(0) 'data_1
If File.Exists(File.DirAssets,"daten/"&HString) Then Msgbox("2","")
If File.Exists(File.DirAssets,"daten/"&HList.Get(0)) Then Msgbox("3","")
End Sub