string ls_filetype
if long(BlobMid(ab_FileNameblob,1,4)) = 944130375 Then
ls_filetype = 'gif'
ElseIf long(BlobMid(ab_FileNameblob,7,4)) = 1179207242 Then
ls_filetype = 'jpg'
ElseIf integer(BlobMid(ab_FileNameblob,1,4)) = 19778 Then
ls_filetype = 'bmp'
ElseIf long(BlobMid(ab_FileNameblob,1,4)) = 1196314761 and long(BlobMid(ab_FileNameblob,5,4)) = 169478669 Then
ls_filetype = 'png'
end if
return ls_filetype