Eso lo implementé en las ultimas versiones. Mira el último post que escribí: https://steemit.com/spanish/@moisesmcardona/mi-herramienta-para-subir-archivos-a-google-drive-version-1-4
Dim FileMetadata As New Data.File
FileMetadata.Name = My.Computer.FileSystem.GetName(GetFile)
Dim FileFolder As New List(Of String)
If String.IsNullOrEmpty(TextBox2.Text) = False Then
FileFolder.Add(TextBox2.Text)
Else
FileFolder.Add("root")
End If
FileMetadata.Parents = FileFolder