MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe
    avatar
    diegojacob
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  diegojacob em Qua 04 Jan 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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Qua 04 Jan 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!
    avatar
    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qua 04 Jan 2017, 19:13

    Olá a todos
    Veja o FOR da mensagem n. 2 do nosso amigo JPaulo:
    [Você precisa estar registrado e conectado para ver este link.]
    Nunca esquecer a BUSCA aqui do fórum Wink
    Abraço
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Qua 04 Jan 2017, 19:24

    Opa, acabei de posta aqui também como fazer:
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    _____________________________________________________________________
    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!
    avatar
    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qua 04 Jan 2017, 19:28

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

      Data/hora atual: Dom 30 Abr 2017, 21:24