test si un dossier existe ou pas dans google drive

Question

Je veux savoir si le dossier (sous-dossier) existe dans google drive ou non, après avoir cherché dans ce page, j'essaie de le faire, je crée une fonction booléenne qui retourne vrai si dossier existe.

ici est un code de fonction booléenne

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 

et voici comment je l'appelle

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

    End If 

l'exception est

exception a declenched dans la méthode exist dans cette instruction

Dim résultat = req.Execute()

est ma méthode correcte ou non? pouvez-vous m'aider?

Answer 1

Il y a deux problèmes avec votre code.

1. requête incorrecte

Votre ligne req.Q = "application/vnd.google-apps.folder" devrait être

req.Q = "mimeType='application/vnd.google-apps.folder' and name = '"+v+"' and trashed=false" Vous avez probablement besoin de ranger le guillemets et les échappements (ne pas copier/coller et attendre à fonctionne la première fois)

2. utilisation de nextPageToken

La présence du dossier ne sera pas indiquée par la présence de nextpageToken. Au lieu de cela, vous devez vérifier le tableau de fichiers dans la réponse pour les éléments> 0.