MoveFiles "D:\1\Test.txt", "D:\2"

Sub MoveFiles(strSource, _
  strDist)

    Dim objFso
    Dim strFile

    Set objFso = CreateObject("Scripting.FileSystemObject")
    
    If Right(strDist,  1 ) <> "\" Then _
      strDist = strDist & "\"

    strFile = strDist & fnGetFileName(strSource)

    If objFso.FileExists(strFile) Then _
      objFso.DeleteFile (strFile)
    
    objFso.MoveFile strSource, strDist
End Sub

Function fnGetFileName( _
  strPath)
    
    Dim intPos
    
    intPos = InStrRev(strPath, "\")
    
    If intPos >  0  Then _
      fnGetFileName = Mid(strPath, intPos +  1 )
End Function