测试google驱动器中是否存在文件夹

Question

我想知道google驱动器中是否存在文件夹（子文件夹），在搜索page之后，我尝试这样做，我创建一个布尔函数，如果文件夹存在则返回true。

这是一个布尔函数的代码

 Public Function exist(v As String) As Boolean
    Dim pag As String
    Dim req = Service.Files.List()
    req.Q = "application/vnd.google-apps.folder"
    req.PageToken = pag
    Dim result = req.Execute()
    If (result.NextPageToken IsNot Nothing) Then
        Return False
    Else
        Return True
    End If

End Function

以及我如何称呼它

 If (exist(dat_sauv.SelectedItem) = False) Then
        MessageBox.Show("folder exist")

    End If

例外是

异常已在此示例中的存在方法中解除了

Dim result = req.Execute（）

我的方法是否正确？你能帮我吗

Answer 1

您的代码存在两个问题。

1. 查询不当

你的专栏req.Q = "application/vnd.google-apps.folder" 应该是

req.Q = "mimeType='application/vnd.google-apps.folder' and name = '"+v+"' and trashed=false" 你可能需要整理引用和转义（即不要复制/粘贴并期望它第一次工作）

1. 使用nextPageToken

nextpageToken的存在不会指示文件夹的存在。相反，您需要检查响应中的＆gt; 0元素的文件数组。