none
(Consulta) Descargar un archivo desde google drive usando visualbasic,net RRS feed

  • Pregunta

  • Hola, sere directo, necesito descargar un archivo desde google drive, ya tengo instalada las apis y tengo las credenciales, encontre un codigo pero no se como modificarlo lo uso y me dice archivo descargado en menos de un segundo pero ni se donde lo esta descargando ni se si funcione bien, me gustaria saber como especificar una ruta de descarga o si alguien tiene  un mejor codigo para bajar desde google drive, desde ya gracias


        Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
            Me.Cursor = Cursors.WaitCursor
            If service.ApplicationName <> "Google Drive VB Dot Net" Then createservice()

            Dim Downloader = New MediaDownloader(service)
            Downloader.ChunkSize = 256 * 1024 '256 KB

            ' figure out the right file type base on UploadFileName extension
            Dim Filename = "inversionesdb1.accdb1"
            Using FileStream = New System.IO.FileStream(Filename, System.IO.FileMode.Create, System.IO.FileAccess.Write)
                Dim Progress = Downloader.DownloadAsync("https://drive.google.com/open?id=1HIIWE0Jqu70YQ-_SIo-YRTEtiLUmjgZZ", FileStream)
                Threading.Thread.Sleep(1000)
                Do While Progress.Status = TaskStatus.Running
                Loop
                If Progress.Status = TaskStatus.RanToCompletion Then
                    MsgBox("Downloaded!")
                Else
                    MsgBox("Not Downloaded :(")
                End If
            End Using
            Me.Cursor = Cursors.Default
        End Sub


    lunes, 12 de agosto de 2019 14:12