Dim month As String
Dim year As String
year = DateTime.GetYear(DateTime.Now)
month = DateTime.GetMonth(DateTime.Now)
Dim result As Int
result = Msgbox2("BLABLABLA","BLA","YES","","NO",Null)
If result = DialogResponse.POSITIVE Then
ToastMessageShow("Loading...",True)
ProgressDialogShow("Loading...")
SQL1.Close
Dim zip As Archiver
zip.Gzip("/mnt/sdcard/","database.db","/mnt/sdcard_ext/")
SQL1.Initialize(File.DirRootExternal, "database.db", True)
ProgressDialogHide
Else
Return
End If