Código: Seleccionar todo
WITH OBJECT ::oAsynFileDownload1
:cRemoteFile := "https://docs.google.com/uc?export=download&id=" + cIdDrive
::oEditFitxerData:cText := xcm_GetTempFilename()
:cLocalFile := ::oEditFitxerData:cText
:OnConnect := {|| lDownloadDrive := .T. }
:OnDisconnect := {|| lDownloadDrive := .F. }
:OnTotalDnLoadInfo := {|o,nProgress| ::oProgressBar1:nValue += nProgress }
::oProgressBar1:lVisible := .T.
:Run()
END WITH
while lDownloadDrive
ProcessMessages()
EndDo
Gracias por vuestro tiempo.