Olá FelixJM, Obrigado pela resposta..

 

Mas se eu tirar os C:temp, ele nao encontra o caminho do zip para add os arquivos e nao encontra o arquivo que desejo zipar...Só se tiver outra maneira de chama-los...

 

Abs...

Fiz o teste  a seguir e funcionou:

 

LINHA = "C:TEMPPKZIP25 -ADD -PATH=FULL  C:TEMPARQUIVOMDB C:TEMP*.MDB"
RET = Shell(LINHA, vbNormalNoFocus)

Uso o PKZIP25

 

OK?

EU USO ASSIM .....VE SE AJUDA ...

 

       'Let's user know through form's caption that processes are initializing
        Form1.Caption = "IniciaLIZANDO ......"
       
        'Begin timer
        CurrentTime = 0
   
        'Set mouse icon to arrow with hourglass
        Form1.MousePointer = 13
       
        'Make sure there isn't any trailing "" in either text boxes
        If Right(Text1.Text, 1) = "" Then Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)
        If Right(Text2.Text, 1) = "" Then Text2.Text = Mid(Text2.Text, 1, Len(Text2.Text) - 1)
       
       
        arqDestino = Text2.Text & "DADOS_" & Format(Month(Date), "00") & Format(Day(Date), "00") & Right(Year(Date), 2) & ".ZIP"
       
        'Just to make sure user doesn't change any options when running processes
        Text1.Enabled = False
        Text2.Enabled = False
        Command4.Enabled = False
        Command5.Enabled = False
'        Check1.Enabled = False
       
       
 ' Parâmetros de Winzip32.exe:
       ' -a = adiciona arquivos.
       ' -ef = compactação rápida; ex = compactação máxima.
       ' As aspas são necessárias caso o diretório tenha espaços no nome.
           strRet = "C:Arquivos de ProgramasWinzipWinzip32.exe -a -ex " _
                & """" & arqDestino & """ " & """" & Text1.Text & """"
       Call MeuShell(strRet, vbNormalFocus) 'Aqui faz a chamada ao módulo p/ aguardar até que o processo finalize
                    
        'Nothing's done, so set boolean so
        AllDone = False
               
        'Origin defined as the directory to be backed up
        Origin = Text1.Text
       
        'Destination defined as the directory to be backed up to
        Destination = Text2.Text
       
        'Boolean to stop all processes if user so desires
        STOPALL = False
        DoEvents
       
        MsgBox "Backup Realizado com Sucesso..."
        End

 

QQ COISA ME DE UM ALO

Pessoal, muito obrigado pelas respostas...

 

Pascoal, esse exemplo com o Winzip dá certo na minha máquina, msa quando uso o Pkzip não.

 

FelixJM,

 

EU usei seu exemplo da seguinte forma:

LINHA = "C:Program FilesPKWARE PKZIPW PKZIPW.exe -ADD -PATH=FULL  C: temp teste.ZIP C: TEMP *.MDB"
RET = Shell(LINHA, vbNormalNoFocus)

 

e ele tbm só abre o zip e não faz nada.

 

se for possível...

me enviem algum arquivo de Excel com os códigos e os arquivos de exemplo para eu testar exatamente como vcs tao fazendo ai..não é possivel que não roda isso aqui...rsss

 

se quiserem mandem no meu email..

 

grande abraço a todos....

 

Eu uso o PKZIP25.EXE

 

Manda o seu e-mail que envio para você.

 

OK.