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

Question

我想知道谷歌驱动器中是否存在文件夹（子文件夹），在此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

例外是

此指令中存在方法中的异常已消除

昏暗结果 = 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 的存在来指示。相反，您需要检查响应中的 files 数组是否有 >0 个元素。