0

我是云存储新手,遇到了这个错误

给定的凭据或配置格式不适合存储提供商

当我尝试使用令牌(uploadMe 子)读取 txt 文件时。我正在使用vb。期待你的答复。

我的代码:

Dim ConsumerKey As String = "******************"
Dim ConsumerSecret As String = "*****************"
Dim config As DropBoxConfiguration = DropBoxConfiguration.GetStandardConfiguration()
Dim requestToken As DropBoxRequestToken

  Private Sub AuthorizeMe()
    config.AuthorizationCallBack = New Uri("http://www.google.com")
    requestToken = DropBoxStorageProviderTools.GetDropBoxRequestToken(config, ConsumerKey, ConsumerSecret)
    Dim AuthorizationUrl As String = DropBoxStorageProviderTools.GetDropBoxAuthorizationUrl(config, requestToken)
    Process.Start(AuthorizationUrl)
End Sub

   Private Sub saveMyAuth()
    Dim accessToken As ICloudStorageAccessToken = DropBoxStorageProviderTools.ExchangeDropBoxRequestTokenIntoAccessToken(config, ConsumerKey, ConsumerSecret, requestToken)
    Dim DropboxStorage As New CloudStorage()
    DropboxStorage.Open(config, accessToken)

    Dim File As FileStream = New FileStream("c:\TEMP\MyToken.txt", FileMode.Create, System.IO.FileAccess.Write)
    DropboxStorage.SerializeSecurityTokenToStream(requestToken, File)
    File.Close()
End Sub

Private Sub uploadme()
    Try
        Dim configio As DropBoxConfiguration = CloudStorage.GetCloudConfigurationEasy(nSupportedCloudConfigurations.DropBox)
        Dim DropboxStorage As New CloudStorage()
        Dim accessToken As ICloudStorageAccessToken
         Using fs = File.Open("C:\TEMP\MyToken.txt", FileMode.Open, FileAccess.Read, FileShare.None)

            accessToken = DropboxStorage.DeserializeSecurityToken(fs)
        End Using
        DropboxStorage.Open(configio, accessToken)
        Dim srcFile = Environment.ExpandEnvironmentVariables("C:\TEMP\mysqlbackup.xml")
        DropboxStorage.UploadFile(srcFile, "/")
        DropboxStorage.Close()
    Catch ex As Exception
        Console.Beep()
        Console.Write(ex.Message, "")
    End Try
End Sub
4

0 回答 0