MaximoAccess

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

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 : 3151
    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 Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4110
    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 : 3151
    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 Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4110
    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: Sex 23 Jun 2017, 21:40