[Resuelto] Guardar en 2 destinos a la vez
Publicado: Sab May 20, 2023 9:17 am
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
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 1295 veces
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