[Resolvido] Compactando banco para winrar

Meu código

Private Sub Comando0_Click()

Dim objfs As Object
Set objfs = CreateObject("Scripting.FileSystemObject")
objfs.CopyFile "C:\Users\vvsilva\Desktop\2M Apresentação - Atual.accdb", "C:\Users\vvsilva\Desktop\2m\a.accdb"


Dim booResultado As Boolean
booResultado = Application.CompactRepair("C:\Users\vvsilva\Desktop\2m\a.accdb", "C:\Users\vvsilva\Desktop\2m\b.accdb", True)

If fncProtegido = True Then
Dim objws As Object
Set objws = CreateObject("wscript.shell")
objws.SendKeys fncCapturaSenha, True
objws.SendKeys "{ENTER}"
End If


If booResultado = True Then FileSystem.Kill "C:\Users\vvsilva\Desktop\2m\a.accdb"



==============Erro parece está aqui, ele não encontra o arquivo==========================

Dim compri
compri = Shell("C:\Arquivos de programas\Winrar\WinRAR.EXE a " & _
Replace("C:\Users\vvsilva\Desktop\2m\b", ".accdb", "") & ".rar " & "C:\Users\vvsilva\Desktop\2m\b", vbHide)

End Sub

E aparece a mensagem "O arquivo não foi localizado"

Boa tarde amigo!

Faltou você especificar o nome do arquivo para compactação corretamente, testei aqui e foi.

veja:

seu código:

Código:


Dim compri
compri = Shell("C:\Arquivos de programas\Winrar\WinRAR.EXE a " & _
Replace("C:\Users\vvsilva\Desktop\2m\b", ".accdb", "") & ".rar " & "C:\Users\vvsilva\Desktop\2m\b", vbHide)


correção:


Dim compri
compri = Shell("C:\Arquivos de programas\Winrar\WinRAR.EXE a " & _
Replace("C:\Users\vvsilva\Desktop\2m\b", ".accdb", "") & ".rar " & "C:\Users\vvsilva\Desktop\2m\b.accdb", vbHide)

Espero ter ajudado.

Att, Danilo

Erro em tempo de execução '53':

O arquivo não foi localizado

Problema continua

Eu já tinha tentado desta forma

Boa tarde !

verifica se você esta chamando o WINRAR corretamente, pois aqui no meu código testei e deu certo.

compri = Shell("C:\Program Files (x86)\WinRAR\WinRAR.EXE a " & _

Att , Danilo

Vitor

Experimente isso:

Código:


compri =Shell("C:\Program Files\WinRAR\WinRAR.exe a -r -ep C:\Users\vvsilva\Desktop\2m\b.rar C:\Users\vvsilva\Desktop\2m\b.accdb",vbHide)


Isso evita as pastas sobrepostas até chegar no arquivo.accdb dentro do arquivo.rar.

Noob

Descobri o problema.
Apesar de aparecer escrito  C:\Arquivos de programa... correto é escrever em inglês C:\Program Files...

OObrigado

Legal que conseguiu VitorBraz Sucesso Amigo!