Error In Excel Script To Batch Copy And Rename Files

After working on this script for a while, I have come up with this.

Code:
Sub CopyAndRenameImages()

Dim fs As Object
Dim oldPath As String, newPath As String
Dim LastRow As Long
Const PW As String = "Password"

[Code] ..........

Handler:
MsgBox oldPath & " cannot be found."
Resume Next
End

End Sub

But for some reason it is always pulling an error on the last item in the list, even if the file is there.