Google Drive API VB.. NET文件夹的父文件夹

Question

我正试图使用Google Drive API与vb.net一起工作。我看过很多帖子，但是我不能够理解如何选择正确的文件夹来添加文件。

我有很多"Backup"文件夹，但是，我想现在，我想在"MyApp1"文件夹下的"Backup"文件夹中添加一个文件。

我正在这样做，但我不知道如何继续。我搜索了我所有的"Backup"文件夹，我需要检查哪个在父文件夹"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

我做错了什么?

我需要改变思维方式才能找到正确的文件夹吗?

提前感谢!

Answer 1

您必须共享创建的文件夹。

'Comparte la carpeta creada
Dim userPermission As Permission = New Permission()
userPermission.Type = "anyone"
userPermission.Role = "writer"
Dim request4 = eDRIVEService.Permissions.Create(userPermission, Results2.Files.Item(0).Id.ToString)
request4.Fields = "id"
request4.Execute()

Answer 2

找到解决方案:

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