it seems that line:
$Attrib = GetFileAttr($File) & 16

is your reason.
try with this:
$Attrib = GetFileAttr($Dir+"\"+$File) & 16
_________________________
!

download KiXnet