Public Function backup()
Dim X, Y As Integer
Dim stAppName As String
MsgBox "Insira a disquete na Drive A:"
stAppName = "C:...Arj.exe a -vva a:ome da mdb c:...ome da mdb.mdb /y"
Call Shell(stAppName, 1)
End Function
Public Function restaurar()
Dim X, Y As Integer
Dim stAppName As String
MsgBox "Insira a disquete com o Backup na Drive A:"
stAppName = "C:...Arj.exe e -vva a:ome da mdb c:...ome da mdb.mdb /y"
Call Shell(stAppName, 1)
End Function
Se não couber numa disquete ele vai solicitando as várias.
Para restaurar deve ser introduzida em primeiro lugar a disquete gravada em último.
NOTA: Deve fechar-se a base de dados antes de efectuar o backup pois se isso não acontecer o mesmo corre o risco de ficar insconsistente.
João Mateus
