File.MakeDir(File.DirRootExternal,"islenskapp")
Dim Writer As TextWriter
Writer.Initialize(File.OpenOutput(File.DirDefaultExternal,"islenskapp.txt",True))
If FirstTime Then
SaveINI ' write Verion of the app to text file when I run the app for FirstTime
End If
LoadINI ' to check if version on the app are new and copy database and write new version number to textfile