Sub Activity_Resume
If isAuthFlowLogin Then
If auth.OAuth2Token <> Null Then
If auth.OAuth2Token <> "" Then
token = auth.OAuth2Token
Dim cred As DbxCredential = auth.DbxCredential
Log($"cred.AccessToken: ${cred.AccessToken}"$)
Log($"cred.aboutToExpire: ${cred.aboutToExpire}"$)
Log($"cred.ExpiresAt: ${cred.ExpiresAt}"$)
Log($"cred.RefreshToken: ${cred.RefreshToken}"$)
lblToken.Text = token
Log("Token available. Dropbox enabled")
Log("Token "&token)
DropboxEnabled = True
btnListroot.Enabled = True
Starter.kvs.Put("dbxtokenv2", token)
Dim dbxhost As DbxHost
dbxhost.Initialize
client.Initialize("Dropbox",config,token,dbxhost)
dbxFiles = client.files
dbxFiles.setEventname("dbxFiles")
dbxSharing = client.sharing
dbxSharing.setEventname("dbxSharing")
dbxUsers = client.users
dbxUsers.setEventname("dbxUsers")
dbxUsers.CurrentAccount
Else
Log($"Token = """$)
End If
Else
Log("OAuth2Token is null. This is usually OK. Do not log it. t will only become not null after you start a Authentification flow...")
End If
End If
End Sub