Sort:  

Muchas gracias ^_^ Tal vez mañana libere el código en GitHub. Todavia sigo haciendole algunas cositas cheveres.

Hola, Una consulta: Como haces para definir una carpeta en google drive ?
Donde se subira los arquichos

Dim ArquivoParaSubir As New File()
ArquivoParaSubir.Title = nome
ArquivoParaSubir.Description = "Prueba"
ArquivoParaSubir.MimeType =""
theFile.Parents = new List(Of ParentReference)() From {New ParentReference() With {.Id = "Carpeta"}} '**** en esta parte tengo problemas para definir la carpeta.

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