Sub Upload(Source As Object, e As EventArgs)
 
  If Not (myFile.PostedFile Is Nothing) Then

    Dim intFileNameLength as Integer
    Dim strFileNamePath as String
    Dim strFileNameOnly as String

    strFileNamePath = MyFile.PostedFile.FileName
    intFileNameLength = Instr(1, StrReverse(strFileNamePath), "\")
    strFileNameOnly = Mid(strFileNamePath, (Len(strFileNamePath)-intFileNameLength)+2)

   myFile.PostedFile.SaveAs(Server.MapPath("/WIP/Upload/") & strFileNameOnly)
   lblMsg.Text = "File Upload Success."
   lblFileContentType.Text = "Content type: " & MyFile.PostedFile.ContentType
   lblFileSize.Text = "File size: " & CStr(MyFile.PostedFile.ContentLength) & " bytes"

end sub