0

クラウド ストレージは初めてですが、このエラーが発生しました

指定された資格情報または構成形式は、ストレージ プロバイダーに適合しません

トークン（uploadMe sub）で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