Sub initDirAndDB(sFunc As String) As Boolean
Dim bOk As Boolean
Log(File.DirDefaultExternal)
If sFunc = "DIRDB" Or sFunc = "DIR" Then
Try
If File.Exists(File.DirRootExternal & "/Camper", "") = False Then
File.MakeDir(File.DirRootExternal, "Camper")
End If
If File.Exists(File.DirRootExternal & "/Camper/LAGER/", "") = False Then
File.MakeDir(File.DirRootExternal, "/Camper/LAGER")
End If
If File.Exists(File.DirRootExternal & "/Camper/LAGER/SENT", "") = False Then
File.MakeDir(File.DirRootExternal, "/Camper/LAGER/SENT")
End If
If File.Exists(File.DirRootExternal & "/Camper/LAGER/DELETE", "") = False Then
File.MakeDir(File.DirRootExternal, "/Camper/LAGER/DELETE")
End If
If File.Exists(File.DirRootExternal & "/Camper/LAGER/DCIM", "") = False Then
File.MakeDir(File.DirRootExternal, "/Camper/LAGER/DCIM")
End If
If File.Exists(File.DirRootExternal & "/Camper/LAGER/RESIZED", "") = False Then
File.MakeDir(File.DirRootExternal, "/Camper/LAGER/RESIZED")
End If
Catch
ToastMessageShow("DIR INIT FAIL", False)
bOk = False
End Try
End If
If sFunc = "DIRDB" Or sFunc ="DB" Then
Try
SQLAnd.Initialize(File.DirRootExternal & "/Camper/", "Camper_geo.db", True)
ToastMessageShow("DB INIT SUCCESS", False)
'SQLAnd.ExecNonQuery("PRAGMA journal_mode = wal")
bOk = True
Catch
Dim sE As String = LastException.Message
If sE.Contains("code 14") Then
ToastMessageShow("DB INIT FAIL", False)
initDirAndDB("DIR")
bOk = False
End If
End Try
Else
bOk = True
End If
Return bOk
End Sub