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

 

  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


 


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