Googleドキュメントにファイルをアップロードする(VB)

ローカルフォルダー内のExcelファイルをGoogleドキュメントにアップロードするVB(.NET)のサンプル・プログラム。
フォームForm1にButton1を配置し、Button1をクリックすると、
  D:\Temp\Sample.xls
をGoogle Docsに
  「サンプルSpreadSheet」
という名前でアップロードする、という簡単なもの。
Visual Basic 2008 Express Editionを使用する。


①先ず、Google Data APIの参照設定。
   [Google Data API SDKのインストール先]\Redistフォルダーの
     Google.GData.Client.dll
     Google.GData.Documents.dll
   を参照設定。


②プログラムは下記の通り:

Imports Google.GData.Documents
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                     Handles Button1.Click
        Dim myService As DocumentsService
        Dim newEntry As DocumentEntry
        '
        myService = New DocumentsService("exampleCo-exampleApp-1")
        'ログイン
        myService.setUserCredentials("hogehoge@gmail.com", "passhoge")
        'D:\Temp\Sample.xlsをGoogle Docsに「サンプルSpreadSheet」の名前でアップロード
        newEntry = myService.UploadDocument("D:\Temp\Sample.xls", "サンプルSpreadSheet")
        '
        Debug.WriteLine("Now accessible at: " + newEntry.AlternateUri.ToString())
    End Sub
End Class