BACKUP

CAPITAO.GARCIA 06/10/2004 21:38:17
#44909 Resposta escolhida

Usando arj.exe
Public Function backup()
Dim X, Y As Integer
Dim stAppName As String
MsgBox "Insira a disquete na Drive A:"
stAppName = "C:\enologia\Arj.exe a -vva a:\socios c:\enologia\socios.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:\enologia\Arj.exe e -vva a:\socios c:\enologia\socios.mdb /y"
Call Shell(stAppName, 1)

End Function