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


    [Resolvido]Copia Todos Os Ficheiros não funciona com arquivo repetido

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

    Respeito às Regras 100%

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

    [Resolvido]Copia Todos Os Ficheiros não funciona com arquivo repetido Empty [Resolvido]Copia Todos Os Ficheiros não funciona com arquivo repetido

    Mensagem  =>Nois em 19/6/2019, 15:43

    bom dia!!

    para mover vários arquivos de uma pasta para outra eu uso o codigo abaixo do JP. No entanto me deparei que se houver um arquivo repetido na pasta de destino o codigo nao funciona, alguém tem alguma luz?

    Código:
    'Copiar todos os ficheiros de uma pasta para outra pasta:


    Sub CopiaTodosOsFicheiros()
    Dim fso
    Dim sfol As String, dfol As String
    sfol = "c:\SuaPasta" ' caminho de origem da pasta
    dfol = "e:\SuaPasta" ' caminho de destino da pasta
    Set fso = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    If Not fso.FolderExists(sfol) Then
    MsgBox sfol & " caminho invalido.", vbInformation, "Erro"
    ElseIf Not fso.FolderExists(dfol) Then
    MsgBox dfol & " caminho invalido.", vbInformation, "Erro"
    Else
    fso.CopyFile (sfol & "\*.*"), dfol ' Alterar "\ *.*" para "\ *. xls" para mover só arquivos Excel
    End If
    If Err.Number = 53 Then MsgBox "não encontrado."
    End Sub


    .................................................................................
    Arrow Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 409
    Registrado : 05/12/2016

    [Resolvido]Copia Todos Os Ficheiros não funciona com arquivo repetido Empty Re: [Resolvido]Copia Todos Os Ficheiros não funciona com arquivo repetido

    Mensagem  caiosouza em 19/6/2019, 17:17

    Boa tarde, me parece que seu exemplo copia ao invés de mover conforme informado.

    Testei seu código e no meu caso ele simplesmente não copia o arquivo duplicado, pois isso afeta as regras de arquivos do Windows. Pode-se ter apenas arquivos com o mesmo nome aqueles que contem uma extensão diferente, ex:
    Teste.txt
    Teste.xml
    Teste.xls
    Teste.xlsx
    Teste.accdb

    poderia me informar o código e descrição do erro?


    .................................................................................
    A persistência leva ao sucesso!
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Copia Todos Os Ficheiros não funciona com arquivo repetido Empty Re: [Resolvido]Copia Todos Os Ficheiros não funciona com arquivo repetido

    Mensagem  =>Nois em 19/6/2019, 17:47

    não acusa nada essa é a questão,
    temos uma rotina em um e-mail que salva todos os arquivos em xml na pasta e hora ou outra é salvo o
    mesmo arquivo após rodar a rotina de mover.


    .................................................................................
    Arrow Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    renpv
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 155
    Registrado : 12/01/2015

    [Resolvido]Copia Todos Os Ficheiros não funciona com arquivo repetido Empty Re: [Resolvido]Copia Todos Os Ficheiros não funciona com arquivo repetido

    Mensagem  renpv em 19/6/2019, 18:43

    Aqui funcionou normal. Eu testei modificando o conteúdo do arquivo e ele sobrescreveu.

    PS: Olhando a documentação da função eu vi que caso o arquivo de destino seja somente leitura a função realmente não vai sobrescrever nem avisar.
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Copia Todos Os Ficheiros não funciona com arquivo repetido Empty Re: [Resolvido]Copia Todos Os Ficheiros não funciona com arquivo repetido

    Mensagem  =>Nois em 19/6/2019, 19:11

    para mim não, se o arquivo é idêntico não sobrescreve e nem move nada...

    consegui resolver com o exemplo do criquio, fazendo várias modificações conforme o que eu precisava

    em anexo para estudo.
    Anexos
    [Resolvido]Copia Todos Os Ficheiros não funciona com arquivo repetido AttachmentCopiarMover.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (152 Kb) Baixado 3 vez(es)


    .................................................................................
    Arrow Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

    Conteúdo patrocinado

    [Resolvido]Copia Todos Os Ficheiros não funciona com arquivo repetido Empty Re: [Resolvido]Copia Todos Os Ficheiros não funciona com arquivo repetido

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 16:59