BACKUP EM DISQUETE
Fiz uma rotina de backup para um banco mdb.Compacto o banco em um diretorio qualquer e depois reparto ele em partes pequenas (ex:mdb000,mdb001,mdb002)para depois restaurar.se a pessoa indicar o destino do beckup em uma pasta sai ok, mas se indicar diretamente um disquete da pau.Pois por exemplo se o banco for grande e gerar 5 arquivos ou mais e o disquete nao suportar ele da a seguinte mensagem Disck full.
Gostaria de saber se existe alguma forma de eu pausar o processo ate inserir outro disquete ?
Obrigado!!!
Gostaria de saber se existe alguma forma de eu pausar o processo ate inserir outro disquete ?
Obrigado!!!
Use o XCEEDZIP, que suporta multivolumes inclusive a diskete, ja naum posso dizer o mesmo ao CD.
Estas funções fazem backup e restauração com ARJ para e de disquete:
Public Function backup()
Dim X, Y As Integer
Dim stAppName As String
MsgBox "Insira a disquete na Drive A:"
stAppName = "C:\gest_pag\Arj.exe a -vva a:\pagam c:\gest_pag\pagament.mdb"
Call Shell(stAppName, 1)
End Function
Public Function restaurar()
Dim X, Y As Integer
Dim stAppName As String
MsgBox "Insira a disquete do Backup na Drive A:"
stAppName = "C:\gest_pag\Arj.exe e -vva a:\pagam c:\gest_pag\pagament.mdb /y"
Call Shell(stAppName, 1)
End Function
Para isso precisa ter o ARJ instalado mo mesmo directório da aplicação.
Public Function backup()
Dim X, Y As Integer
Dim stAppName As String
MsgBox "Insira a disquete na Drive A:"
stAppName = "C:\gest_pag\Arj.exe a -vva a:\pagam c:\gest_pag\pagament.mdb"
Call Shell(stAppName, 1)
End Function
Public Function restaurar()
Dim X, Y As Integer
Dim stAppName As String
MsgBox "Insira a disquete do Backup na Drive A:"
stAppName = "C:\gest_pag\Arj.exe e -vva a:\pagam c:\gest_pag\pagament.mdb /y"
Call Shell(stAppName, 1)
End Function
Para isso precisa ter o ARJ instalado mo mesmo directório da aplicação.
Tópico encerrado , respostas não são mais permitidas