2015-06-09 146 views
0

我正在尝试与Google Drive API一起使用vb.net。 我看过很多帖子,但我无法理解如何选择正确的文件夹来添加文件。Google Drive API VB.NET父文件夹的文件夹

我有很多“备份”文件夹,但我现在假设,我想将一个文件添加到“MyApp1”文件夹下的“备份”文件夹中。

我这样做,但我不知道如何继续。我搜索我的所有“备份”文件夹,我需要检查哪一个位于父文件夹“Myapp”下。

Public Shared Function TheRightFolder() As Boolean 

    Try 
     Dim FolderName As String = "Backup" 
     Dim ParentName As String = "MyAPP1" 
     Dim result As Boolean = False 

     Dim request = Service.Files.List() 
     Dim requeststring As String = ("mimeType='application/vnd.google-apps.folder' And trashed=false and title='" & FolderName & "'") 
     request.Q = requeststring 
     Dim Parent = request.Execute() 

     For Each item As File In Parent.Items 
      'Get PARENT NAME OF THE FOLDER TO CHECK IF I AM INSERT IN MY FILE IN THE RIGHT DIRECTORY (USING 'item.Parents DATA'?) 
      '... 
      If ParentName = new_func_to_get_parent_folder_name Then 
       Return True 
      End If 
     Next 
    Catch EX As Exception 
     MsgBox("ERROR" & EX.Message) 
    End Try 
    Return False 

End Function 

我在做什么错?

我是否需要改变方式去思考以获得正确的文件夹?

在此先感谢!

回答

0

实测溶液:

Public Shared Sub ParentsInFolder(ByVal folderId As String) 

    Dim request As ParentsResource.ListRequest = Service.Parents.List(folderId) 
    Try 
     Dim parents As ParentList = request.Execute() 
     For Each parent As ParentReference In parents.Items 
      Dim FileId As String = parent.Id.ToString 
      InfoFromID(Service, FileId) 
     Next 
    Catch e As Exception 
     MsgBox("Errore: " & e.Message) 
    End Try 

End Sub 

和:

Public Shared Sub InfoFromID(ByVal Service As DriveService, fileId As String) 
    Try 
     Dim file As File = service.Files.Get(fileId).Execute 

     Dim Title As String = file.Title 
     Dim MimeType As String = file.MimeType.ToString 
     Dim description As String = file.Description 

    Catch e As Exception 
     MsgBox("Errore: " + e.Message) 
    End Try 
End Sub 
相关问题