Thank you. For anyone else looking for the same thing this will work with only a few changes. first change the that has
urlFile = Mid(urlPath, InStrRev(urlPath, "/") )
to
urlFile = Mid(urlPath, (InStrRev(urlPath, "/") + 1))
without the +1 it will put a "/" on the front of the file...