Transferência de arquivo

Olá amigos boa noite!

Estou movendo um arquivo com o código abaixo e, está dando certo quando o arquivo é jpg mas quando é pdf não faz, o que há de errado:

Código:

sfol = strCaminho 'CurrentProject.path & "\trabalhando\" 'caminho inicial
dfol = CurrentProject.path & "\" & "Excluidos" & "\" 'destino

If Not Dir(dfol, vbDirectory) <> "" Then MkDir (dfol)

Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(sfol) Then
   MsgBox sfol & " não existe!", vbExclamation, "Erro"
   ElseIf Not fso.FileExists(dfol) Then
       fso.MoveFile (sfol), dfol
       
   Else
   MsgBox dfol & " existente!", vbExclamation, "Sucesso"
   End If
       
Else
   DoCmd.CancelEvent
End If

tente adaptar


maximoaccess.com/t36155-resolvidocopia-todos-os-ficheiros-nao-funciona-com-arquivo-repetido