Sub SQLConn_Initialize(DBName As String,CreateInExternalDir As Boolean)
Dim rp As RuntimePermissions
Dim TargetDir As String = ""
'controlla se la dir esterna è scrivibile e se ho scelto di scrivere in tale posizione altrimenti scrivo sulla directory interna (sempre true)
If File.ExternalWritable = True And CreateInExternalDir = True Then
TargetDir = rp.GetSafeDirDefaultExternal("")
DBCreatedExternal = True
Else
TargetDir = File.DirInternal
DBCreatedExternal = False
End If
'se il file del db non esiste lo copio dalla cartella assets
If File.Exists(TargetDir, DBName) = False Then
File.Copy(File.DirAssets, DBName, TargetDir, DBName)
End If
'inizializzo la connessione
SQLConn.Initialize(TargetDir,DBName,True)
SQLConnIsInitialized = SQLConn.IsInitialized
End Sub