Sub Process_Globals
Private manager As DbxAccountManager
Private key As String = "6sfz1ltyhf4a519"
Private secret As String = "4n6nu9khg2btsq9"
End Sub
Sub Globals
Private Button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
manager.Initialize(key, secret, "manager")
File.Copy(File.DirAssets, "books6.db" ,File.DirRootExternal, "books6.db")
' SQL1.Initialize (File.DirDefaultExternal,"books6.sqlite",False)
End If
Activity.LoadLayout("1")
End Sub
Sub Button1_Click
manager.LinkAccount
' SQL1.Close
End Sub
Sub Manager_AccountReady (Success As Boolean)
Log("Account Ready: " & Success)
If Success Then
ToastMessageShow("Link to Dropbox successfull ...",False )
manager.UploadFile(File.DirRootExternal,"books6.db", "/", "books6.db")
Else
ToastMessageShow("Unable to Link to Dropbox ...",False )
End If
End Sub
Sub Manager_DownloadCompleted (Success As Boolean, LocalDir As String, LocalFileName As String)
Log("UploadCompleted: " & Success)
End Sub