Sub ReadLocalFiles(Offset As Int,ImageLimit As Int)
Dim ImageMap As Map
MB.Initialize("MB")
ImageMap = MB.GetMediaImageList(True, "datetaken COLLATE UNICODE DESC limit " & ImageLimit & " offset " & Offset)
PicMap.Initialize
For i = 0 To (ImageMap.Size/7)-1
Dim subMap As Map : subMap.Initialize
subMap.Put("Location",ImageMap.get("Location" & i))
subMap.Put("Thumbnail","")
PicMap.Put(ImageMap.get("ID" & i), subMap)
Next
'Log(PicMap)
If pCacheThumbs = True Then
'Thumbnails
For i = 0 To PicMap.Size-1
Dim ID As Long = PicMap.GetKeyAt(i)
Dim subMap As Map = PicMap.GetValueAt(i)
Log(ID & " " & subMap)
Dim bmpThumb As Bitmap = MB.GetImgThumbnailByID(ID,False)
'Log("Fetched bmpThumb")
If bmpThumb.IsInitialized AND bmpThumb <> Null Then
'Log(bmpThumb)
subMap.Put("Thumbnail",bmpThumb)
'Log("Put into map")
Else
subMap.Put("Thumbnail",Null)
End If
Next
End If
Log("End ReadLocalFiles")
End Sub