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

    [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados Empty [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados

    Mensagem  Assis 15/4/2021, 12:13

    Bom dia Amigos
    No código abaixo copio tudo o que esta junto á minha base de dados.
    Será possível copiar tudo, sem ter que descriminar (na sub) os nome das pastas e o nome dos ficheiros.

    Tipo:

    FSO.CopyFolder sfol & "\" & "Sons", dfol & "Sons"
    FSO.CopyFile (sfol & "\*.accd?"), dfol

    '****************************************************************

    Sub CopiaTodosOsFicheiros()

    Obrigado

    Dim FSO
    Dim sfol As String, dfol As String
    sfol = CurrentProject.path
    dfol = Me!CaminhoEscolhido
    Set FSO = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    If Not FSO.FolderExists(sfol) Then
    MsgBox sfol & " Caminho Inválido.", vbInformation, "" & DLookup("[Programa]", "Proprietario") & " " & DLookup("[Tipo]", "Proprietario")
    ElseIf Not FSO.FolderExists(dfol) Then
    MsgBox dfol & " Caminho Inválido.", vbInformation, "" & DLookup("[Programa]", "Proprietario") & " " & DLookup("[Tipo]", "Proprietario")

    Else

    FSO.CopyFolder sfol & "\" & "Sons", dfol & "Sons"
    FSO.CopyFile (sfol & "\*.accd?"), dfol
    FSO.CopyFile (sfol & "\*.Bmp"), dfol
    FSO.CopyFile (sfol & "\*.exe"), dfol
    FSO.CopyFile (sfol & "\*.php"), dfol

    End If
    If Err.Number = 53 Then MsgBox "Nada Encontrado."
    End Sub


    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 12/04/2016

    [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados Empty Re: [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados

    Mensagem  marcelo marques 16/4/2021, 11:20

    Quero acompanhar este tópico
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7262
    Registrado : 15/03/2013

    [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados Empty Re: [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados

    Mensagem  ahteixeira 16/4/2021, 11:46

    Olá a todos,

    O simples será trocar isto tudo:
    Código:
    FSO.CopyFolder sfol & "\" & "Sons", dfol & "Sons"
    FSO.CopyFile (sfol & "\*.accd?"), dfol
    FSO.CopyFile (sfol & "\*.Bmp"), dfol
    FSO.CopyFile (sfol & "\*.exe"), dfol
    FSO.CopyFile (sfol & "\*.php"), dfol

    por isto:
    Código:
    FSO.CopyFolder sfol, dfol

    Abraço
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados Empty Re: [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados

    Mensagem  Assis 16/4/2021, 12:36

    Olá Teixeira

    Copiou até mais do que eu queria.

    veja a imagem que tem uma pergunta.

    Obrigado e

    Bom almoço

    [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados Sem_t212


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7262
    Registrado : 15/03/2013

    [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados Empty Re: [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados

    Mensagem  ahteixeira 16/4/2021, 12:38

    Olá Assis,

    O simples será apagar esse ficheiro no destino após a cópia.
    O que lhe parece?

    Abraço
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados Empty Re: [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados

    Mensagem  Assis 16/4/2021, 13:02

    Teixeira

    Com um kill *.laccdb

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7262
    Registrado : 15/03/2013

    [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados Empty Re: [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados

    Mensagem  ahteixeira 16/4/2021, 14:00

    Olá Assis,

    Sim, tem é que ajustar o caminho.

    Algo assim:
    Código:
    kill  dfol  & "\*.laccdb"

    Abraço a todos
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados Empty Re: [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados

    Mensagem  Assis 16/4/2021, 16:05

    Obrigado Teixeira cheers


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7262
    Registrado : 15/03/2013

    [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados Empty Re: [Resolvido]Copiar tudo o que estiver na mesma diretoria da Base de dados

    Mensagem  ahteixeira 16/4/2021, 16:59

    Olá Assis,

    Obrigado pelo retorno, bom FDS.

    cheers

      Data/hora atual: 23/6/2021, 07:17