>Any comments?

>if CompareFileExtension( fileName, '.JPG' ) or
>CompareFileExtension( fileName, '.JPEG' ) or
>CompareFileExtension( fileName, '.WMF' ) or
>CompareFileExtension( fileName, '.BMP' ) or
>CompareFileExtension( fileName, '.ICO' ) then

Small optimization:

if Pos(UpperCase(ExtractFileExt(FileName))+' ','.JPG .BMP .JPEG .ICO
.WMF ')>0 then ....

should be fastest ;) (One call instead 4 for each file extension (and
one UpperCase instead 4 UpperCase inside CompareFileExtension)).


WBR,Dmitry Beloshistov AKA [-=BDS=-]