Sub Camera1_Preview (PreviewPic() As Byte)
If DateTime.Now > lastPreviewSaved + IntervalMs Then
Dim jpeg() As Byte = camEx.PreviewImageToJpeg(PreviewPic, 70)
lastPreviewSaved = DateTime.Now
' return today's date in yyyy-MM-dd_HHmmss format
Dim filename As String = modMashiane.PictureDate & ".jpg"
Dim dir As String = File.DirRootExternal & "/example/" & xToday
camEx.SavePictureToFile(jpeg, dir, filename)
End If
End Sub