devxlogo

IsImageFile – Returns whether the file is an image

IsImageFile – Returns whether the file is an image

' Returns a boolean indicating whether the file is an imageFunction IsImageFile(ByVal filePath As String) As Boolean    ' add more extensions if you wish    Dim extensions() As String = New String() {".bmp", ".jpg", ".jpeg", ".gif", _        ".tif", ".tiff", ".png", ".tga", ".emf", ".wmf", ".bid"}    ' return true if the extension of the specified file is contained in the     ' array above    Return (Array.IndexOf(extensions, New System.IO.FileInfo(filePath) _        .Extension) > -1)End Function

devx-admin

Share the Post: