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


2 participantes

    [Resolvido]Verificar vários arquivos se Existem

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 980
    Registrado : 09/11/2012

    [Resolvido]Verificar vários arquivos se Existem Empty [Resolvido]Verificar vários arquivos se Existem

    Mensagem  =>Nois 21/8/2015, 15:11

    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! Basketball


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Verificar vários arquivos se Existem Empty Re: [Resolvido]Verificar vários arquivos se Existem

    Mensagem  JPaulo 21/8/2015, 15:56

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Verificar vários arquivos se Existem Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Verificar vários arquivos se Existem Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Verificar vários arquivos se Existem Folder_announce_new Instruções SQL como utilizar...
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 980
    Registrado : 09/11/2012

    [Resolvido]Verificar vários arquivos se Existem Empty Re: [Resolvido]Verificar vários arquivos se Existem

    Mensagem  =>Nois 21/8/2015, 16:05

    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


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 980
    Registrado : 09/11/2012

    [Resolvido]Verificar vários arquivos se Existem Empty Re: [Resolvido]Verificar vários arquivos se Existem

    Mensagem  =>Nois 21/8/2015, 16:14

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


    Muito obrigado!!!


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Verificar vários arquivos se Existem Empty Re: [Resolvido]Verificar vários arquivos se Existem

    Mensagem  JPaulo 21/8/2015, 16:22

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Verificar vários arquivos se Existem Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Verificar vários arquivos se Existem Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Verificar vários arquivos se Existem Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Verificar vários arquivos se Existem Empty Re: [Resolvido]Verificar vários arquivos se Existem

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 00:46