Sub restoreDB_Dropbox
manager.LinkAccount
End Sub
Sub Manager_AccountReady (Success As Boolean)
If Success Then
Dim filesList As List
filesList.Initialize
For Each FileInfo As DbxFileInfo In manager.ListFiles("/")
filesList.Add(FileInfo.Name)
Next
Dim result As Int
result = InputList(filesList, trans.GetText("Choose Backup File"), -1)
Dim xFileName = filesList.Get(result)
Dim xFileNameComplete = File.DirRootExternal & "/MLB_Backup/" & xFileName
result = Msgbox2(trans.GetText("Confirm the Restore") & "?", xFileName, trans.GetText("Yes"), "", trans.GetText("No"), LoadBitmap (File.DirAssets, "question.ico"))
If result = DialogResponse.POSITIVE Then
manager.DownloadFile("/", xFileName, File.DirRootExternal & "/MLB_Backup", xFileName)
End If
End If
end sub
Sub Manager_DownloadCompleted (Success As Boolean, LocalDir As String, LocalFileName As String)
Dim xFileNameComplete = LocalDir & LocalFileName
myZip.ABUnzip(xFileNameComplete, File.DirDefaultExternal & "/")
Msgbox(trans.GetText("Now the application will be closed. Please restart."),"Restore completed")
ExitApplication
End Sub