Checks if file is an image using its filename extension
Function FileisImage(FileName)
Rett = 0
ThisExt = UCase(Right(FileName,4))
If ThisExt = ".JPG" Or ThisExt = ".GIF" Or ThisExt = ".PNG" Or ThisExt = "JPEG" Then
Rett = 1
End If
FileisImage = Rett
End Function
Rett = 0
ThisExt = UCase(Right(FileName,4))
If ThisExt = ".JPG" Or ThisExt = ".GIF" Or ThisExt = ".PNG" Or ThisExt = "JPEG" Then
Rett = 1
End If
FileisImage = Rett
End Function
Filename
Views 4,465
Downloads 1,455
CodeID
DB ID