[Resolvido]Verificar vários arquivos se Existem

Ola!

criei uma Pasta (C:\TesteImagem) onde tem duas pastas dentro: Rede e Local


Tenho uma tabela onde constam os endereços dos arquivos que estão na pasta Rede: (esses arquivos existem)

C:\TesteImagem\Rede\ 1.ico
C:\TesteImagem\Rede\ 2.png
C:\TesteImagem\Rede\ 4.jpg
C:\TesteImagem\Rede\ 5.gif
C:\TesteImagem\Rede\ 6.bmp

E logo abaixo precisava verificar se estes arquivos existem na Pasta Local,
Se não precisava que me informasse quais não tem e copiasse da rede para a pasta Local.

C:\TesteImagem\Local\ 1.ico
C:\TesteImagem\Local\ 2.png
C:\TesteImagem\Local\ 4.jpg
C:\TesteImagem\Local\ 5.gif
C:\TesteImagem\Local\ 6.bmp

hoje trabalho com vinculos direto da rede (imagens, arquivos e etc) gostaria de potencializar a utilização do sistema com as imagens local tornando o sistema "mais rápido" pois em alguns horários a rede fica lenta tornando o abre tela e fecha tela meio lento.

obrigado!

Veja se atende;

Código:

Function CopiaFicheiros()
    Dim FSO As Object
    Dim Origem As String
    Dim Destino As String
    Dim FicheirosOrigem As Object

    Origem = "C:\TesteImagem\Rede"
    Destino = "C:\TesteImagem\Local"

    If Right(Origem, 1) <> "\" Then
        Origem = Origem & "\"
    End If

    If Right(Destino, 1) <> "\" Then
        Destino = Destino & "\"
    End If

    Set FSO = CreateObject("scripting.filesystemobject")

    If FSO.FolderExists(Origem) = False Then
        MsgBox Origem & " não existe"
        Exit Function
    End If

    If FSO.FolderExists(Destino) = False Then
        MsgBox Destino & " não existe"
        Exit Function
    End If

    For Each FicheirosOrigem In FSO.getfolder(Origem).Files
            FicheirosOrigem.Copy Destino
    Next FicheirosOrigem
End Function

saiu melhor que a pedida!!

só deu erro no finalzinho, em uma situação em que ja existe um componente igual a pasta de origem

por exemplo: no montante total são 6 na pasta rede, no entanto ja existem 2 na local


For Each FicheirosOrigem In FSO.getfolder(Origem).Files
FicheirosOrigem.Copy Destino
Next FicheirosOrigem

descobri tinha arquivo com extensão .ico exclui da lista e agora esta funcionando!


Muito obrigado!!!

Obrigado pelo retorno o forum agradece.