Respaldar todas las dbf a una carpeta en la nube con usario y password

[Marcelo Becker Vasquez]

Hola a todos...amigos tengo un problema y como dice el asunto se trata de respaldar todas mis tablas a una carpeta que esta en una nube y que tiene user y password.
Me conecte a la carpeta por windows y luego ejecute el codigo desde un boton de un formulario y funciona sin problema, mi idea es que el respaldo se haga cada vez que el usuario salga del programa y lo que lo haga automaticamente...desde el boton no tengo problema pero cuando lo hago al salir de la aplicacion me error.

Me podrian orientar de como hacerlo.

Tengo otra carpeta en otra nube pero la tengo como unidad de red y no me da problemas al respaldar...tendre que dejar como unidad de red esta nueva carpeta..?

[micky khan]

Probaste con dropbox...onedrive

--

  <_>
 (o o)
 (  °  )
<>-<>
Micky Khan

[Marcelo Becker Vasquez]

problema resuelto...tenia un error en el codigo. gracias igual.

[Allan Raúl Acuña]

Que buen colega, aca tambien se comparten soluciones !

---

De: publice...@googlegroups.com <publice...@googlegroups.com> en nombre de Marcelo Becker Vasquez <mbec...@gmail.com>
Enviado: miércoles, 26 de abril de 2017 02:35:33 p.m.
Para: publice...@googlegroups.com
Asunto: Re: [vfp] Respaldar todas las dbf a una carpeta en la nube con usario y password

 

[mhlezama]

Como se realiza en Google druve?

[Geovanni Solís Perez]

Sería interesante nos comentaras como haces el proceso, asi todos podemos aprender....

Saludos

Gracias. 

[mhlezama]

Sería bueno compartir la idea.

[Marcelo Becker Vasquez]

El tema es algo asi...

ldFecha = DATE()

*** pregunto si confirma accion

IF lnRespuesta = 6

fso =createobject('Scripting.FileSystemObject')
fldr = fso.DeleteFolder('\\mi.ip\mi_sistema\respaldo_bck')

CLOSE DATABASES
USE
SET DEFAULT TO c:\programa\remesas\bdatos
WSruta1 = '\\mi.ip\remesas\Temuco_Bck\respaldo_'+;
Substr(dtoc(m_ldFecha),1,2)+substr(dtoc(ldFecha),4,2)+substr(dtoc(ldFecha),9,2)+'.DBF'
n = ADIR(wstablas, '*.dbf')
totalregistros = n
s = 1
SET DEFAULT TO HOME()
MD (wsruta1)
SET DEFAULT TO c:\programa\remesas\bdatos
FOR i = 1 TO n
     s = s + 1
     STORE (wstablas(i,1)) TO  ;
           m_archivos
     *thisform.refresh
     wsarchivo = wstablas(i,1)
     wstabla2 = (wstablas(i,1)) + '.DBF'
     COPY FILE (wsarchivo) TO (wstabla2)
     COPY FILE (wstabla2) TO  (wsruta1)
     DELETE FILE (wstabla2)
ENDFOR

CLOSE DATABASES
USE
SET DEFAULT TO c:\programa\remesas\bdatos


CLEA*

ENDIF

Espero les sirva.

Saludos

--

Saludos

Marcelo Becker V.
Desarrollo y Soporte
cel. 944062500