function VerboseMediaSource(string filename, int ident) {

err_msg1 = ""
err_msg2 = ""
err_msg3 = ""
err_msg4 = ""

 Try {
  AVISource(filename)
 }
  Catch(err_msg1) {
   Try {
    MPEG2Source(filename)
   }
   Catch(err_msg2) {
    Try {
     DirectShowSource(filename)
    }
     Catch(err_msg3) {
      Try {
       ImageReader(filename)
      }
       Catch(err_msg4) {
       Assert(false, "Total failure on all 4 media types! Errors returned were:  "+err_msg1+"  "+err_msg2+"  "+err_msg3+"  "+err_msg4)
       }
     }                
   }
  }

Eval("global vbsfile"+String(ident)+" = filename")
Eval("global vbserrs"+String(ident)+" = err_msg1+err_msg2+err_msg3+err_msg4")

return last
}

function PrintVerboseMediaSource(string filename, int ident) {
VerboseMediaSource(filename, ident)
Subtitle(filename+", "+String(ident))
}