|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Função para back-up usando Arj
|
 |
|
|
|
Postada em 3/6/2003 por Gelson
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
|
|
|
|
|
