1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Function valideExtension(ByVal Fichier As String) As Boolean
Dim allowedExtensions As New ArrayList()
allowedExtensions.Add("PDF")
allowedExtensions.Add("DOC")
allowedExtensions.Add("DOCX")
allowedExtensions.Add("TXT")
allowedExtensions.Add("BMP")
allowedExtensions.Add("JPG")
allowedExtensions.Add("PNG")
allowedExtensions.Add("GIF")
allowedExtensions.Add("HTML")
allowedExtensions.Add("CSS")
Dim i As Integer
Dim str As String
For i = 0 To allowedExtensions.Count - 1
str = Cstr(allowedExtensions.Item(i))
If Right(Fichier,Len(str)).ToUpper() = str.ToUpper() Then
valideExtension = True
Response.Write("Celui qui a programmé ça est stupide<br/>")
ELSE
Response.Write(Right(Fichier,Len(str)).ToUpper() & " != " &str.ToUpper() & "<br />")
End If
Next
valideExtension = False
End Function |