MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


4 participantes

    [Resolvido]Criar ficheiro zip, ou rar

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Criar ficheiro zip, ou rar

    Mensagem  Assis 14/5/2013, 17:17

    Boa tarde
    Com este comando faço cópias de segurança para a PenDrive.
    Será possivel compactar tudo isto num zip, ou rar.
    Obrigado

    Public Function CopiaDriveE()
    On Error Resume Next
    If MsgBox("Deseja Fazer Backup do Programa " & Chr(13) & "" & [Programa] & " " & [Tipo] & "" & Chr(13) & "Drive Destino " & [cxPasta1] & "? ", vbYesNo, "Aviso de Cópias de Segurança") = vbYes Then
    Me.Rótulo12.Visible = True
    Me.Rótulo11.Visible = False
    Me.Backup = Now
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.folderexists(Me.CaminhoEscolhido) Then ' verifica se já existe a pasta
    If MsgBox("Pasta já Existe .... Continuar e Substituir a Pasta Existente ?", vbOKCancel, "Aviso?") = vbCancel Then

    GoTo sai
    End If
    Else
    MkDir Me.CaminhoEscolhido ' se não existir cria
    End If


    Dim fs As Object
    Dim PathInicial As String, PathFinal As String
    PathInicial = CurrentProject.path
    PathFinal = CaminhoEscolhido
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CopyFile PathInicial & "\" & Me.NomeBaseDados, PathFinal & "\" & Me.NomeBaseDados
    fs.CopyFile PathInicial & "\" & "StrStorage.dll", PathFinal & "\" & "StrStorage.dll"
    fs.CopyFile PathInicial & "\" & "dynapdf.dll", PathFinal & "\" & "dynapdf.dll"
    fs.CopyFolder PathInicial & "\" & "PDF", PathFinal & "PDF"
    fs.CopyFolder PathInicial & "\" & "Tabelas", PathFinal & "Tabelas"
    fs.CopyFile PathInicial & "\" & "Assis.ico", PathFinal & "\" & "Assis.ico"
    fs.CopyFile PathInicial & "\" & "MouseHook.dll", PathFinal & "\" & "MouseHook.dll"
    fs.CopyFile PathInicial & "\" & "AirLock.bmp", PathFinal & "\" & "AirLock.bmp"
    fs.CopyFile PathInicial & "\" & "Bancos.png", PathFinal & "\" & "Bancos.png"
    fs.CopyFile PathInicial & "\" & "Tirarmensagem.exe", PathFinal & "\" & "Tirarmensagem.exe"
    fs.CopyFolder PathInicial & "\" & "Imagens", PathFinal & "Imagens"


    MsgBox "A Cópia de Segurança do Programa. " & vbCrLf & "" & [Programa] & " " & [Tipo] & " " & vbCrLf & "Foi Efectuada Com Sucesso", vbInformation, "" & [Programa] & " " & [Tipo] & ""

    DoCmd.Close acForm, "Menu"
    DoCmd.Close acForm, "Backup"
    sai: DoCmd.Quit
    End If

    End Function


    Última edição por Assis em 16/5/2013, 19:30, editado 3 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Avelino Sampaio 14/5/2013, 17:24

    Use O Shell() para executar o WinRar. Neste meu artigo tem um exemplo do comando para o WinRar

    http://www.usandoaccess.com.br/tutoriais/tuto14.asp?id=1#inicio

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  JPaulo 14/5/2013, 17:36

    Ou veja aqui o código:

    Compacta Banco com WinZip

    http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Assis 14/5/2013, 18:00

    Boas JPaulo

    Eu já estive a ver esse seu exemplo, mas não consigo adaptar.


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Convidado 15/5/2013, 00:35

    Poste o BD para que possamos ver, com todos os objetos envolvidos.

    Cumprimentos.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Assis 15/5/2013, 00:58

    Boa noite Piloto

    Anexo BD

    A ideia é tudo que vai para o PenDrive ir em Winrar

    Obrigado


    Última edição por Assis em 20/5/2013, 10:50, editado 1 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Convidado 15/5/2013, 20:45

    Assis porque não utiliza o Backup que exite no SysBase?

    cumprimentos.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Assis 16/5/2013, 11:13

    Bom dia Piloto

    O sysbase no Win 8 dá muitos erros
    Obrigado


    Última edição por Assis em 19/5/2013, 15:54, editado 1 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Assis 16/5/2013, 16:39

    Boa tarde


    Shell ("C:\Program files (x86)\WinRAR\WinRar.exe " & ZipFiles & CaminhoEscolhido & ".Rar " & ZipFiles & CaminhoEscolhido & "\*.*")

    Sendo que CaminhoEscolhido é o nome da pasta que é criada na drive destino, porque dá a informação de :

    Não foram encontrados arquivos


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Convidado 20/5/2013, 02:54

    Manda este exemplo com este código e explique novamente amigão.

    Cumprimentos.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Assis 20/5/2013, 10:51

    Bom dia Piloto

    O exemplo está na mensagem Nº 6

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Convidado 20/5/2013, 19:36

    Boas Assis, voce quer compactar a pasta toda?

    Cumprimentos.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Assis 20/5/2013, 19:41

    Boa noite Piloto

    Sim.


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Convidado 20/5/2013, 23:04

    Assis, viu que no backup do SysBase ele ja identifica automaticamente o Drive?
    Pense que nem todos as letras dos drives serão as mesmas..

    No meu mesmo quando coloco o pen a letra dele é G.

    Pense nisso

    Estou vendo o processo.

    Cumprimentos.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Assis 20/5/2013, 23:22

    Boas Piloto

    Nesse exemplo tem opção para 3 letras.
    Se quizer pode por a opção do sysBase a detetar a drive

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Convidado 21/5/2013, 00:02

    Amanha vejo isto pra ti

    Cumprimentos.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Assis 23/5/2013, 00:59

    Piloto

    Está dificil ?

    Cumprimentos


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Silvio 23/5/2013, 11:56

    Bom dia a todos..

    Com a permissão dos colegas ! Assis, andei lendo alguma coisa para te ajudar...veja se nesse link tem algo que lhe ajuda.

    Abraços


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  JPaulo 23/5/2013, 12:48

    Teste por favor, atenção que eu estou a colocar em C: a pasta "B Cafe" com todo o conteudo;


    Sub ComprimePastaComWinRar()
    Dim WinRarPath As String 'Localização do WinRar.exe
    Dim RarIt As String 'Instrução de linha de comando
    Dim SourceDir As String 'O diretório de origem
    Dim DestDir As String 'O diretório de destino
    Dim DestRarName As String
    Dim Dest As String 'Caminho de destino concatenado

    '*** Verifica se existe instalação do WinRar ***
    WinRarPath = "C:\Program Files\WinRar\"
    If Dir(WinRarPath, vbDirectory) = "" Then
    MsgBox "O WinRar não está instaldo nesse diretorio." _
    & Chr$(13) & "Impossivel comprimir."
    Exit Sub
    End If

    SourceDir = "C:\B Cafe\"

    'Verifica se a Pasta tem espaços nos nomes
    If InStr(1, SourceDir, " ", vbTextCompare) <> 0 Then SourceDir = Chr(34) & SourceDir & Chr(34)

    'Letra do Drive de destino
    DestDir = "C:\"

    If Dir(DestDir, vbDirectory) = "" Then MkDir DestDir
    DestRarName = "ProjetoAssis.Rar"
    Dest = DestDir & "\" & DestRarName
    If InStr(1, Dest, " ", vbTextCompare) <> 0 Then Dest = Chr(34) & Dest & Chr(34)

    RarIt = Shell(WinRarPath & "WinRar.exe a " & Dest & " " & SourceDir, vbNormalFocus)
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Assis 23/5/2013, 13:03

    Boas JPaulo

    Tive de alterar

    ' WinRarPath = "C:\Program Files\WinRar\"

    Tenho Win 8

    WinRarPath = "C:\Program Files (x86)\WinRar\"

    Deu este erro da imagem


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  JPaulo 23/5/2013, 13:19

    Na mensagem diz lá tudo...

    Tem duas barras e só pode ter uma.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  JPaulo 23/5/2013, 13:24


    Sub ComprimePastaComWinRar()
    Dim WinRarPath As String 'Localização do WinRar.exe
    Dim RarIt As String 'Instrução de linha de comando
    Dim SourceDir As String 'O diretório de origem
    Dim DestDir As String 'O diretório de destino
    Dim DestRarName As String
    Dim Dest As String 'Caminho de destino concatenado

    '*** Verifica se existe instalação do WinRar ***
    WinRarPath = "C:\Program Files (x86)\WinRar\"

    If Dir(WinRarPath, vbDirectory) = "" Then
    MsgBox "O WinRar não está instaldo nesse diretorio." _
    & Chr$(13) & "Impossivel comprimir."
    Exit Sub
    End If

    SourceDir = "C:\B Cafe"

    'Verifica se a Pasta tem espaços nos nomes
    If InStr(1, SourceDir, " ", vbTextCompare) <> 0 Then SourceDir = Chr(34) & SourceDir & Chr(34)

    'Letra do Drive de destino
    DestDir = "C:\"

    If Dir(DestDir, vbDirectory) = "" Then MkDir DestDir
    DestRarName = "ProjetoAssis.Rar"
    Dest = DestDir & "\" & DestRarName
    If InStr(1, Dest, " ", vbTextCompare) <> 0 Then Dest = Chr(34) & Dest & Chr(34)

    RarIt = Shell(WinRarPath & "WinRar.exe a " & Dest & " " & SourceDir, vbNormalFocus)
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Assis 23/5/2013, 14:55

    JPaulo
    Fiz aqui umas alterações e funciona, só não comprime as (2) pastas que estão dentro da pasta "B Cafe"

    Não comprime:

    A pasta "Tabelas", e a pasta "PDF", assim como umficheiro de AirLock.bmp.

    Alterai a parte a vermelho.

    Segue em anexo o exemplo já com o comando WinRar

    Sub ComprimePastaComWinRar()
    Dim WinRarPath As String 'Localização do WinRar.exe
    Dim RarIt As String 'Instrução de linha de comando
    Dim SourceDir As String 'O diretório de origem
    Dim DestDir As String 'O diretório de destino
    Dim DestRarName As String
    Dim Dest As String 'Caminho de destino concatenado

    '*** Verifica se existe instalação do WinRar ***

    WinRarPath = "C:\Program Files (x86)\WinRar\"
    If Dir(WinRarPath, vbDirectory) = "" Then
    MsgBox "O WinRar não está instaldo nesse diretorio." _
    & Chr$(13) & "Impossivel comprimir."
    Exit Sub
    End If

    SourceDir = Me.CaminhoEscolhido

    'Verifica se a Pasta tem espaços nos nomes
    If InStr(1, SourceDir, " ", vbTextCompare) <> 0 Then SourceDir = Chr(34) & SourceDir & Chr(34)

    'Letra do Drive de destino
    DestDir = Me.cxPasta1

    If Dir(DestDir, vbDirectory) = "" Then MkDir DestDir
    DestRarName = "ProjetoAssis.Rar"
    Dest = DestDir & "\" & DestRarName
    If InStr(1, Dest, " ", vbTextCompare) <> 0 Then Dest = Chr(34) & Dest & Chr(34)

    RarIt = Shell(WinRarPath & "WinRar.exe a " & Dest & " " & SourceDir, vbNormalFocus)
    End Sub




    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  JPaulo 23/5/2013, 15:05

    Vou verificar, mas em 14 testes efetuados, funfou em todos.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  JPaulo 23/5/2013, 15:27

    Assis, você está a correr o código dentro do proprio banco que vai ser compactado em .rar, desse modo nunca irá funcionar.

    O codigo funciona plenamente bem, para comprimir em .rar, pastas exteriores ao banco.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Assis 23/5/2013, 15:39

    Jpaulo
    Mas nesse exemplo que postei agora, ele cria um ficheiro compactado na pendrive.
    Mas seguindo o seu exemplo aonde ponho a funcao ?
    Ao fechar a BD.


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  JPaulo 23/5/2013, 15:47

    Vou fazer uns teste aqui.

    Da forma como está ele leva tudo menos o banco aberto.




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  JPaulo 23/5/2013, 16:31

    Assis,

    Pelos meus testes, vai funcionar.

    Vou elaborar um trecho de código, para criar uma copia da Pasta, comprimi-la e depois apagar.

    Aguarde.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  JPaulo 23/5/2013, 16:52


    Sub ComprimePastaComWinRar()
    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String
    Dim WinRarPath As String 'Localização do WinRar.exe
    Dim RarIt As String 'Instrução de linha de comando
    Dim SourceDir As String 'O diretório de origem
    Dim DestDir As String 'O diretório de destino
    Dim DestRarName As String
    Dim Dest As String 'Caminho de destino concatenado

    FromPath = "c:\B Cafe"
    ToPath = "c:\BackupBCafe"

    'inicia a criação da pasta
    Set Fs = CreateObject("Scripting.FileSystemObject")
    'se a pasta existir, deleta
    If Dir("c:\BackupBCafe", vbDirectory) <> "" Then
    Fs.DeleteFolder "c:\BackupBCafe", True
    Else
    'se não existir, cria
    MkDir "c:\BackupBCafe"
    End If

    If Right(FromPath, 1) = "\" Then
    FromPath = Left(FromPath, Len(FromPath) - 1)
    End If
    If Right(ToPath, 1) = "\" Then
    ToPath = Left(ToPath, Len(ToPath) - 1)
    End If
    Set FSO = CreateObject("scripting.filesystemobject")
    If FSO.FolderExists(FromPath) = False Then
    MsgBox FromPath & " não existe."
    Exit Sub
    End If
    'copia
    FSO.CopyFolder Source:=FromPath, Destination:=ToPath


    '*** Verifica se existe instalação do WinRar ***
    WinRarPath = "C:\Program Files (x86)\WinRar\"

    If Dir(WinRarPath, vbDirectory) = "" Then
    MsgBox "O WinRar não está instaldo nesse diretorio." _
    & Chr$(13) & "Impossivel comprimir."
    Exit Sub
    End If

    SourceDir = "C:\BackupBCafe"

    'Verifica se a Pasta tem espaços nos nomes
    If InStr(1, SourceDir, " ", vbTextCompare) <> 0 Then SourceDir = Chr(34) & SourceDir & Chr(34)

    'Letra do Drive de destino
    DestDir = "C:\"

    If Dir(DestDir, vbDirectory) = "" Then MkDir DestDir
    DestRarName = "ProjetoAssis.Rar"
    Dest = DestDir & "\" & DestRarName
    If InStr(1, Dest, " ", vbTextCompare) <> 0 Then Dest = Chr(34) & Dest & Chr(34)

    RarIt = Shell(WinRarPath & "WinRar.exe a " & Dest & " " & SourceDir, vbNormalFocus)
    MsgBox "Backup criado com sucesso..."

    'deleta a pasta virtual
    If Dir("c:\BackupBCafe", vbDirectory) <> "" Then
    Fs.DeleteFolder "c:\BackupBCafe", True
    Else
    'se já não existir, não faz nada
    End If

    DoCmd.Quit
    End Sub

    Anexos
    [Resolvido]Criar ficheiro zip, ou rar AttachmentB Cafe_OLD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (429 Kb) Baixado 33 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  JPaulo 23/5/2013, 17:32

    Correção;

    Faltava deletar o .laccdb no backup

    Anexos
    [Resolvido]Criar ficheiro zip, ou rar AttachmentB Cafe_OLD_II.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (429 Kb) Baixado 92 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Assis 23/5/2013, 19:17

    Obrigado
    JPaulo


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Convidado 23/5/2013, 22:11

    Obrigado pela solução João Paulo, não pude acompanhar o tópico a contento.. estava com problemas...
    Desculpe a falha assis.

    Abraços.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  JPaulo 24/5/2013, 08:41

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Criar ficheiro zip, ou rar Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Criar ficheiro zip, ou rar Empty Re: [Resolvido]Criar ficheiro zip, ou rar

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 22:05