Activity_Create(FirstTime As Boolean)
If FirstTime Then
File.MakeDir(File.DirRootExternal,"DVDProfiler")
ProgressBar1.Initialize("ProgressBar1")
ProgressBar1.Indeterminate = True
parser.Initialize
Activity.AddMenuItem2("Importeren","Import",LoadBitmap(File.DirAssets,"import.png"))
InitTable
SQL1.Initialize(DBFilePath, DBFileName, True)
SQLTableCreate
End If
........
Sub ReadXML
Dim in As TextReader
If File.Exists(XMLFilePath, XMLFile) = True Then
Activity.AddView(ProgressBar1,60,140,200,200)
ProgressBar1.BringToFront
SQL1.ExecNonQuery("DROP TABLE IF EXISTS " & DBTableName)
SQLTableCreate
in.Initialize2(File.OpenInput(XMLFilePath, XMLFile),"windows-1252")
parser.Parse2(in, "Parser")
in.Close
ProgressBar1.RemoveView
FetchTitelLijst
Else
Msgbox("XML bestand niet gevonden.","")
End If
End Sub