USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página