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

    VBA FSO - FileSystemObject para manipularmos arquivos + selecionar lista (tabela ou consulta) de arquivos a serem copiados

    diegojacob
    diegojacob
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 06/07/2011

    VBA FSO - FileSystemObject para manipularmos arquivos + selecionar lista (tabela ou consulta) de arquivos a serem copiados Empty VBA FSO - FileSystemObject para manipularmos arquivos + selecionar lista (tabela ou consulta) de arquivos a serem copiados

    Mensagem  diegojacob 4/1/2017, 11:32

    Encontrei uma ótima postagem do amigo JPaulo (FSO - FileSystemObject para manipularmos arquivos), porém gostaria de fazer com que a string abaixo, copiasse arquivos, os quais, seus nomes estão listados em uma consulta ou tabela?

    Podendo ser apenas 1 arquivo ou 1000, de acordo com as informações contidos em uma determinada lista, tabela ou consulta.


    'Copiar um arquivo se ele existir:

    Sub CopiaFicheiro()
    Dim fso
    Dim file As String, sfol As String, dfol As String
    file = "teste.xls" ' nome do ficheiro (Aqui, gostaria se informar uma lista de arquivos a serem copiados, como se fosse fazer um loop, pesquisa o primeiro e copia, o segundo, e assim por diante).
    sfol = "C:" ' caminho inicial
    dfol = "E:" ' caminho destino
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(sfol & file) Then
    MsgBox sfol & file & " não existe!", vbExclamation, "Erro"
    ElseIf Not fso.FileExists(dfol & file) Then
    fso.CopyFile (sfol & file), dfol, True
    Else
    MsgBox dfol & file & " existente!", vbExclamation, "Sucesso"
    End If
    End Sub

    Gostaria da colaboração dos amigos do Fórum.

    Obrigado.

    Diego
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    VBA FSO - FileSystemObject para manipularmos arquivos + selecionar lista (tabela ou consulta) de arquivos a serem copiados Empty Re: VBA FSO - FileSystemObject para manipularmos arquivos + selecionar lista (tabela ou consulta) de arquivos a serem copiados

    Mensagem  FabioPaes 4/1/2017, 19:03

    Faça um Loop antes do Nome do Ficheiro...

    Dim fso
    Dim file As String, sfol As String, dfol As String

    'Inicie o Loop aqui>>>

    file = 'coloque aqui o Campo onde tem o nome do arquivo
    sfol = "C:" ' caminho inicial
    dfol = "E:" ' caminho destino
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(sfol & file) Then
    MsgBox sfol & file & " não existe!", vbExclamation, "Erro"
    ElseIf Not fso.FileExists(dfol & file) Then
    fso.CopyFile (sfol & file), dfol, True
    Else
    MsgBox dfol & file & " existente!", vbExclamation, "Sucesso"
    End If
    'Finalize o Loop aqui <<<


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    VBA FSO - FileSystemObject para manipularmos arquivos + selecionar lista (tabela ou consulta) de arquivos a serem copiados Empty Re: VBA FSO - FileSystemObject para manipularmos arquivos + selecionar lista (tabela ou consulta) de arquivos a serem copiados

    Mensagem  Alvaro Teixeira 4/1/2017, 19:13

    Olá a todos
    Veja o FOR da mensagem n. 2 do nosso amigo JPaulo:
    https://www.maximoaccess.com/t11655-resolvidolistar-arquivos-em-pasta-definida
    Nunca esquecer a BUSCA aqui do fórum Wink
    Abraço
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    VBA FSO - FileSystemObject para manipularmos arquivos + selecionar lista (tabela ou consulta) de arquivos a serem copiados Empty Re: VBA FSO - FileSystemObject para manipularmos arquivos + selecionar lista (tabela ou consulta) de arquivos a serem copiados

    Mensagem  FabioPaes 4/1/2017, 19:24



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    VBA FSO - FileSystemObject para manipularmos arquivos + selecionar lista (tabela ou consulta) de arquivos a serem copiados Empty Re: VBA FSO - FileSystemObject para manipularmos arquivos + selecionar lista (tabela ou consulta) de arquivos a serem copiados

    Mensagem  Alvaro Teixeira 4/1/2017, 19:28

    Amigo Fabio, estamos pela mesma causa.
    Aguardamos pela resolução e retorno do colega.
    Abraço

    Conteúdo patrocinado


    VBA FSO - FileSystemObject para manipularmos arquivos + selecionar lista (tabela ou consulta) de arquivos a serem copiados Empty Re: VBA FSO - FileSystemObject para manipularmos arquivos + selecionar lista (tabela ou consulta) de arquivos a serem copiados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 08:33