2
VB Code:
  1. Temp = Mid(filename, InStrRev(filename, "\") + 1)

  2.  Temp = Mid(Temp, 1, Len(Temp) - 4)