|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Utilizando o pkzip para fazer backup em vários disquetes
|
 |
|
|
|
Postada em 10/6/2005 por ATS
Muitas vezes devido ao grando tamanho de um banco de dados é complicado fazer seu backup para um disquete. Principalmente para usuários leigos. Para simplificar a operação podemos utilizar o pkzip (compactador de arquivos) e uma função chamada shell.
Então basta colocar os seguintes códigos na opção de backup
Dim X as variant
X=Shell("pkzip.exe a:file.zip -& c:pathfile.mdb",0) 'executa o pkzip em janela oculta.
SendKeys "%{F4}", True 'fecha a janela
É possivel utilizar outros compactadores como arj ou outro qualquer
Para descompactar utilize o pkunzip:
Dim X as variant
X=Shell("pkunzip.exe a:file.zip c:path",0) 'executa o pkunzip em janela oculta.
SendKeys "%{F4}", True 'fecha a janela
|
|
|
|
|
