[Resolvido]Ao mover arquivo substituir se já existir

Bom dia galera!
Eu estou usando o seguinte código em um botão para ao clicar mover o arquivo para uma outra pasta, o problema é que quando o arquivo na pasta destino existe, ele não consegue mover e dá erro de depuração. Eu queria que se o arquivo existisse na pasta destino ele move substituindo o arquivo lá existente

Private Sub Comando22_Click()
Dim fso
Dim Sfol As String, dfol As String

Sfol = Me.Foto_Poeta
dfol = "C:\ftexsi\"

Set fso = CreateObject("Scripting.FileSystemobject")
If Not fso.FileExists(Sfol) Then
MsgBox Sfol & "não existe!", vbExclamation, "Erro"
ElseIf Not fso.FileExists(dfol & Sfol) Then


fso.movefile (Sfol), dfol


Else
MsgBox "foto movida", vbExclamation, "Sucesso"
End If
End Sub

Dê uma olhada aqui;

http://maximoaccess.forumeiros.com/t913-fso-filesystemobject-para-manipularmos-arquivos

Mestre João Paulo foi com esse artigo que eu aprendi a manipular arquivos, e inclusive foi com esse artigo que usei o códio para mover o arquivo, o problema é lá não consta nenhuma dica para sobrescrever o arquivo se ele existir, tentei até usar um fso.Deletefile (dfol), true antes de mover para deletar o arquivo se ele já existisse, mas ai informa que o arquivo não foi encontrado. Se você puder me ajudar a resolver esse problema, agradeço

Teste por favor;

Dim fso
Dim Sfol As String, dfol As String

Sfol = Me.Foto_Poeta
dfol = "C:\ftexsi\"

Set fso = CreateObject("Scripting.FileSystemobject")

If Not fso.FileExists(Sfol) Then
MsgBox Sfol & " não existe!", vbExclamation, "Erro"
Exit Sub
End If


If fso.FileExists(dfol & Mid(Sfol, InStrRev(Sfol, "\") + 1)) Then
   fso.DeleteFile dfol & Mid(Sfol, InStrRev(Sfol, "\") + 1), True
   fso.movefile (Sfol), dfol
   MsgBox "Foto movida com sucesso...", vbInformation, "Sucesso"
Else
   fso.movefile (Sfol), dfol
   MsgBox "Foto movida com sucesso...", vbInformation, "Sucesso"
End If

Pefeito João Paulo, muito obrigado meu amigo

Obrigado pelo retorno o forum agradece.

Bom dia a todos, desculpas mas estou ressucitando o tópico
Estou tentando adaptar o procedimento abaixo créditos para o mestre JPaulo mas não estou conseguindo em razão de não ter conhecimento suficiente em VBA, gostaria que o código mantenha o nome das fotos na pasta originalmente ali copiadas, porém gostaria que o código apenas acrescentasse ou concatenasse a data atual do sistema operacional em todas as fotos ao clicar de um botão no meu formulário. Ex: JPaulo_27/06/2013.jpg
Grato a todos, abraços  

Public Sub RenomeiaFicheiros()
'By JPaulo ® Maximo Access
Const strCaminho As String = "C:\imagens\"
   Dim strFicheiro As String
   Dim strFicheiroNumerado As String
       strFicheiro = Dir(strCaminho)
       strFicheiroNumerado = "000" & Int(1)
       On Error Resume Next
   Do While strFicheiro <> ""
       If Right$(strFicheiro, 3) = "jpg" Then
       Name strCaminho & strFicheiro As strCaminho & strFicheiroNumerado & ".jpg"
   End If
       strFicheiroNumerado = "000" & Int(strFicheiroNumerado) + 1
   strFicheiro = Dir
   Loop
End Sub

Ola Helio seja bem vindo ao forum;

Da proxima vez que necessitar de ajuda abra novo tópico, por favor;

Teste;

Public Sub RenomeiaFicheiros()
'By JPaulo ® Maximo Access
Const strCaminho As String = "C:\imagens\"
  Dim strFicheiro As String
  Dim strNome As String
  Dim strCaminhoCompleto As String

       strFicheiro = Dir(strCaminho)

      On Error Resume Next
  Do While strFicheiro <> ""
      If Right$(strFicheiro, 3) = "jpg" Then
         strCaminhoCompleto = strCaminho & strFicheiro
         strNome = Replace(Mid([strCaminhoCompleto], InStrRev([strCaminhoCompleto], "\") + 1), ".jpg", "")
      Name strCaminho & strFicheiro As strCaminho & strNome & Date & ".jpg"
  End If
  strFicheiro = Dir
  Loop
End Sub

Bom dia JPaulo agradeço pela atenção e cortesia e queira me desculpar da próxima irei abrir um novo tópico como sugerido.
Quanto ao código eu mudei o caminho que no meu caso seria "D:\fotos\", mas infelizmente não ocorreu as mudanças nos arquivos conforme esperado.  
Abraços
Hélio