why not just pure kix ;\)

 Code:
function tiffPageCount($filePath)
dim $oFo,$sFi
 $filePath=split($filePath,'\')
 $sFi=$filePath[ubound($filePath)]
 $filePath[ubound($filePath)] = ''
 $oFo = CreateObject("Shell.Application").namespace(join($filePath,'\'))
 $tiffPageCount = $oFo.GetDetailsOf($oFo.Parsename($sFi),13)
endfunction


COMPLETELY untested. written in the quick edit window, so use at own risk \:\)
_________________________
!

download KiXnet