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

3 participantes

    [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 : 4754
    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, 11: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 : 923
    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, 10:20

    Quero acompanhar este tópico
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7714
    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  Alvaro Teixeira 16/4/2021, 10: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 : 4754
    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, 11: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 ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7714
    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  Alvaro Teixeira 16/4/2021, 11: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 : 4754
    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:02

    Teixeira

    Com um kill *.laccdb

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7714
    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  Alvaro Teixeira 16/4/2021, 13: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 : 4754
    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, 15:05

    Obrigado Teixeira cheers


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7714
    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  Alvaro Teixeira 16/4/2021, 15:59

    Olá Assis,

    Obrigado pelo retorno, bom FDS.

    cheers

      Data/hora atual: 26/1/2023, 23:01