Fyle Type banning system for uploads

[xxsoftwarexx]

If InStr(txtFilePath.Text, "hta") > 0 Or InStr(txtFilePath.Text, "shtm") > 0 Or InStr(txtFilePath.Text, "shtml") > 0 Or InStr(txtFilePath.Text, "stm") > 0 Or InStr(txtFilePath.Text, "ssi") > 0 _
	 Or InStr(txtFilePath.Text, "js") > 0 Or InStr(txtFilePath.Text, "xml") > 0 Or InStr(txtFilePath.Text, "dtd") > 0 Or InStr(txtFilePath.Text, "lbi") > 0 _
	  Or InStr(txtFilePath.Text, "xsl") > 0 Or InStr(txtFilePath.Text, "xslt") > 0 Or InStr(txtFilePath.Text, "shtm") > 0 Or InStr(txtFilePath.Text, "dwt") > 0 Or InStr(txtFilePath.Text, "css") > 0 _
	   Or InStr(txtFilePath.Text, "asp") > 0 Or InStr(txtFilePath.Text, "aspx") > 0 Or InStr(txtFilePath.Text, "ascx") > 0 Or InStr(txtFilePath.Text, "asmx") > 0 Or InStr(txtFilePath.Text, "cfm") > 0 _
		Or InStr(txtFilePath.Text, "cfml") > 0 Or InStr(txtFilePath.Text, "cfc") > 0 Or InStr(txtFilePath.Text, "as") > 0 Or InStr(txtFilePath.Text, "php3") > 0 Or InStr(txtFilePath.Text, "php4") > 0 _
		 Or InStr(txtFilePath.Text, "lasso") > 0 Or InStr(txtFilePath.Text, "jsp") > 0 Or InStr(txtFilePath.Text, "jst") > 0 Or InStr(txtFilePath.Text, "jsf") > 0 Or InStr(txtFilePath.Text, "tld") > 0 _
		  Or InStr(txtFilePath.Text, "tld") > 0 Or InStr(txtFilePath.Text, "java ") > 0 Or InStr(txtFilePath.Text, "wml") > 0 Or InStr(txtFilePath.Text, "edml") > 0 Or InStr(txtFilePath.Text, ".exe") > 0 _
		   Or InStr(txtFilePath.Text, "html") > 0 Or InStr(txtFilePath.Text, "htm") > 0 Or InStr(txtFilePath.Text, "php") > 0 Then
		MsgBox("You have selected a file with a illegal file type!", MsgBoxStyle.Critical)
else
 'code here
End If