IE8 FileUpload 上傳檔案失敗

之前寫好的程式，一直都沒問題，最近忽然有使用者反應，沒辨法上傳了，一問之下，原來他們的共通點，都正升了IE8，試了一下原因，發現連Google Chrome 也不能用也 !
原來是原來我用的分析副檔名的方式有問題，改變一下寫法就行了。
原來的寫法


Dim Filename1 As String = "" '檔案名稱
Dim Nextname1 As String = "" '副檔名
Filename1 = Me.FileName1.PostedFile.FileName '圖片一
If Filename1 <> "" Then
Filename1 = Microsoft.VisualBasic.Right(Filename1, InStr(StrReverse(Filename1), "\") - 1)
Nextname1 = Filename1.Substring(Filename1.LastIndexOf(".")).ToLower
If Nextname1 <> ".jpg" And Nextname1 <> ".jpeg" And Nextname1 <> ".gif" Then
response.write "圖片1上傳不正確，必需為 .jpg 或 .jpge 或 .gif 的副檔名"
Exit Sub
End If
End If

新的寫法如下

Dim Filename1 As String = "" '檔案名稱
Dim Nextname1 As String = "" '副檔名
Filename1 = Me.FileName1.PostedFile.FileName '圖片一
If Filename1 <> "" Then
Nextname1 = System.IO.Path.GetExtension(Filename1).ToLower
If Nextname1 <> ".jpg" And Nextname1 <> ".jpeg" And Nextname1 <> ".gif" Then
response.write ("圖片1上傳不正確，必需為 .jpg 或 .jpge 或 .gif 的副檔名")
Exit Sub
End If
End If

注意紅色的字的地方。