Replace the FileMonth line
 Code:
$FileMonth = $aMonate[Val(SubStr($FileDate, 6, 2))]
The original value of 4 should have been 6.

Glenn
_________________________
Actually I am a Rocket Scientist! \:D