Página 1 de 1

Integração com Dropbox e Google Drive

Publicado: Mié Feb 12, 2014 12:30 pm
por Sommus
Bom dia,
Estou desenvolvendo um sistema que necessita de backup em nuvem, porém pelas documentaçíµes do Dropbox e Google Drive não consegui. Alguém sabe de alguma forma para fazer essa integração.
Obrigado.
Sebastião Sérgio.

Integração com Dropbox e Google Drive

Publicado: Mié Feb 12, 2014 2:27 pm
por emeasoft
Sebastião,
Cópia fazemos assim:

IF HB_DirExists(sPath:=GetEnv( "SystemDrive" )+GetEnv("HOMEPATH")+"Dropbox") .OR.;
HB_DirExists(sPath:=GetEnv( "SystemDrive" )+GetEnv("HOMEPATH")+"Meus documentosDropbox")
MakeDir(sPath+="nome pasta")
MakeDir(sPath+="subpasta")
MsgInfo("Copiando para o Dropbox")
CopyFile("nomearq.ZIP",sPath+"subpastanomearq.ZIP")
ENDIF
IF HB_DirExists(a13[1]:=GetEnv( "SystemDrive" )+GetEnv("HOMEPATH")+"Google Drive") .OR.;
HB_DirExists(a13[1]:=GetEnv( "SystemDrive" )+GetEnv("HOMEPATH")+"Meus documentosGoogle Drive")
.....

Abraços
Mário Angelini