我在 VB.Net 中有一个应用程序,可以在 google doc 上下载和上传文档。但是现在 google doc 变成了 google drive。
我使用此代码连接到我的帐户。
Public Class Form1
Dim DocServices As DocumentsService
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
logIn()
End Sub
Sub logIn()
DocServices = New DocumentsService("DocListUploader")
DocServices.setUserCredentials(txtUserName.Text, txtPassword.Text)
Dim docQuery As New DocumentsListQuery
docQuery.NumberToRetrieve = 1
DocServices.Query(docQuery)
getDocList()
End Sub
Sub getDocList()
Me.lbDocs.Items.Clear()
Dim resultFeed As DocumentsFeed = Me.theFeed()
Dim entry As New DocumentEntry
For Each entry In resultFeed.Entries
Me.lbDocs.Items.Add(entry.Title.Text)
Next
End Sub
Function theFeed() As DocumentsFeed
Dim query As New DocumentsListQuery()
Dim feed As DocumentsFeed = DocServices.Query(query)
Return feed
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim theFilename As String = OpenFileDialog1.FileName
Dim theEntry As DocumentEntry
theEntry = DocServices.UploadDocument(theFilename, Nothing)
End If
End Sub
End Class
我想做同样的想法,但使用谷歌驱动器。我没有像这样在 c# 中找到 vb.net 中的代码。请帮我。