codice:
Private Function FileEsistente(ByVal Path As String) As Boolean
FileEsistente = False
If Path <> "" Then
  If Dir(Path) <> "" Then FileEsistente = True
End If
End Function
Per spostare il file lo copi con la FileCopy e lo cancelli con la Kill.