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

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

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?

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.

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.

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.