Probabilmente poco sopra devi cambiare questo

codice:
 strPhysicalPath = Server.MapPath(".\" & ShowSub)
in

codice:
 strPhysicalPath = Server.MapPath("/" & ShowSub)