[Resuelto] Guardar en 2 destinos a la vez

[entarbol]

Me gustaría saber si hay alguna forma de que cada vez que se guarde el archivo, se guarde simultáneamente en un pen. Gracias

[Neftali R]

Buen día,

No sé qué es un "pen", pero sé que hay extensiones que manejan copias de seguridad, yo personalmente no las uso, pero yo manejo un macro simple que hace una copia de seguridad al día de cada archivo que yo abra y modifique.

A ver si te sirve, eso sí, mi macro es para Libre Office, no debería haber problemas de incompatibilidad, pero es una posibilidad que no puede descartarse.

Tendrías que poner este macro en tu carpeta en un módulo de "Mis macros y diálogos" y después hacer que se ejecute con el evento o suceso de "Guardar documento".

El macro lo puedes asignar a algunos archivos específicos (yendo manualmente archivo por archivo y asignando el macro al suceso), o lo puedes asignar al programa y se aplica a todos los archivos, al menos así es en Libre Office.

Para acceder a "Mis macros y diálogos", debes ir a Herramientas>Macros>Organizar macros>BASIC...

Captura.PNG (104.01 KiB) Visto 896 veces

De ahí vas a "Standard" y de "Standard" a un módulo y pegas el macro ahí.

Para asignar el macro a el suceso, vas a Herramientas>Personalizar>Sucesos y ahí buscas es suceso que más se adapte a tus necesidades.

Código: Seleccionar todo

Sub GuardarAutomatico
Dim sURL, sFecha As String, oDoc As Object
oDoc = ThisComponent
'Se obtiene el nombre del archivo que se está guardando.
sURL = Dir(oDoc .getURL,16)
'Se obtiene la fecha actual.
sFecha = Format(Now(), "ddmmyyyy")
'Se hace una ruta para guardar la copia automática.
sURL = ConvertToURL ("C:\Users\Ejemplo\Documents\Copias automaticas\"+sFecha+" "+sURL)
'Si no se ha creado un archivo ese día, se guarda una copia, si el archivo de esa ruta ya existe, no hace nada.
	If Dir(sURL) = "" Then oDoc.storeToRecoveryFile (sURL, Array())
End Sub

[entarbol]

Muchisimas gracias.