Backup BD

[mferrete]

Hola a todos!

Estoy intentando montar una macro para que haga una copia de la Base de Datos en uso, pero me da el siguiente error:

Type: com.sun.star.package.zip.ZipIOException
Message: Teh stream seems to be broken!

El código que estoy utilizando es:

Código: Seleccionar todo

Sub BackupBD()

Dim DocURL As String
Dim URLNuevo As String

Dim FechaBackup As String


FechaBackup =  Day(Date())& "_" & MONTH(DATE()) & "_" & YEAR(DATE())
DocURL = ThisDatabaseDocument.URL
URLNuevo = Left(DocURL, LEN(DocURL) - 4)& "_ "& FechaBackup & ".odb"
ThisDatabaseDocument.storeToURL(URLNuevo, Array())


End Sub

Alguna idea?

Gracias

Maite

[RMG]

Hola,

A mi me funciona bien. Por probar en tu PC, en esta linea hay un espacio en blanco, ya te digo, a mi incluso así me funciona bien.

URLNuevo = Left(DocURL, LEN(DocURL) - 4)& "_"& FechaBackup & ".odb"

Saludos