DUVIDAS NESTAS FUNCOES VB 6

USUARIO.EXCLUIDOS 11/03/2005 19:22:13
#72498

Pessoal eu gostaria de uma ajudinha de como implementar estas funções no VB 6, pois não sei como fazer, mas abaixo estou mostrando mais ou menos o que deseja que as mesmas façam:


Private Sub Apagar_Click()
'Apaga os arquivos com esta extensão(.LDB) se existirem nesta pasta
Del "c:\PadreFabio\SisControl2004\*.ldb"
End Sub

Private Sub Backup_Click()
'Executa o Winzip(no modo Comando de Linha) compactando a lista de
'arquivos(ZipLista.lst) para o arquivo BackupsSisControl2004-2k3.zip,
'se o mesmo já existir somente atualiza(-u) os arquivos alterados da lista
'incluindo full path(-P), uma senha em cada arquivo compactado(-s) e
'usa o modo de encriptação(-yc); todos com nivel de compactação rápido(-ef)
"C:\PadreFabio\SisControl2004\WZZip.exe" -u -P -ef -sFraternidade -ycAES128 "C:\PadreFabio\SisControl2004\Backups\BackupsSisControl2004-2k3.zip" @ZipLista.lst
End Sub

Private Sub Executar_Click()
'Executa este comando de linha, como se fosse um atalho do windows
"C:\Arquivos de programas\Microsoft Office\OFFICE11\MSACCESS.EXE" /excl "C:\PadreFabio\SisControl2004\SisControl2004-2k3.mde" /WRKGRP "C:\PadreFabio\SisControl2004\SisControl2004-2k3.mdw"
End Sub

Private Sub Otimizar_Click()
'Executa este comando de linha, como se fosse um atalho do windows
"C:\Arquivos de programas\Microsoft Office\OFFICE11\MSACCESS.EXE" /repair "C:\PadreFabio\SisControl2004\SisControl2004-2k3_BD.mdb" /compact /WRKGRP "C:\PadreFabio\SisControl2004\SisControl2004-2k3.mdw"
End Sub

Private Sub Segurança_Click()
'Copia estes arquivos para estas pastas e se os mesmos já existirem sobreescreve os mesmos sem pedir permissão(>nul)
Copy "C:\PadreFabio\SisControl2004\SisControl2004-2k3.mdb" "C:\PadreFabio\SisControl2004\Backups\SisControl2004-2k3.mdb" > nul
Copy "C:\PadreFabio\SisControl2004\SisControl2004-2k3.mde" "C:\PadreFabio\SisControl2004\Backups\SisControl2004-2k3.mde" > nul
Copy "C:\PadreFabio\SisControl2004\SisControl2004-2k3_BD.mdb" "C:\PadreFabio\SisControl2004\Backups\SisControl2004-2k3_BD.mdb" > nul
End Sub

Private Sub Tabelas_Click()
'Executa este comando de linha, como se fosse um atalho do windows
"C:\Arquivos de programas\Microsoft Office\OFFICE11\MSACCESS.EXE" /excl "C:\PadreFabio\SisControl2004\SisControl2004-2k3_BD.mdb" /WRKGRP "C:\PadreFabio\SisControl2004\SisControl2004-2k3.mdw"
End Sub