Subir archivo al Drive de Google
Publicado: Vie Mar 08, 2024 12:30 pm
Estoy utilizando AsynFileDownload para poder descargar archivos de esta manera...
Lo que estoy buscando es la manera de poder subir un archivo al Drive de Google.
Gracias por vuestro tiempo.
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.