ja.
if there is not a single such file on the drive/dir you are scanning, that happens.

change it to something like:
if ubound($drivescan)>0
redim
endif
_________________________
!

download KiXnet