Se genera un eccezione il rinonimo del file come faccio a gestirla?

codice:
Dim fsoMyFile
Set fsoMyFile=Server.CreateObject("Scripting.FileSystemObject")
fsoMyFile.moveFile server.MapPath(vecchio),server.MapPath("nuovo")
Set Fso = Nothing
Grazie