Here is some code to get you started.

Break ON
$Dir = 'GREG_PKTFILE.APD_10062003153155',
'GREG_PKTFILE.APD_10062003160529',
'GREG_PKTFILE.APD_10062003171459',
'GREG_PKTFILE.APD_10062003172522',
'GREG_PKTFILE.APD_10062003190028',
'GREG_PKTFILE.APD_10072003094000',
'GREG_QTYPERFILE.APD_10062003153155',
'GREG_QTYPERFILE.APD_10062003160529',
'GREG_QTYPERFILE.APD_10062003171459',
'GREG_QTYPERFILE.APD_10062003172522',
'GREG_QTYPERFILE.APD_10062003190028',
'GREG_QTYPERFILE.APD_10072003094000',
'GREG_QTYPERFILE.APD_10072003102554',
'GREG_WLOTFILE.APD_10062003172522',
'GREG_WLOTFILE.APD_10062003190028'

For each $file in $dir
  $ext = Split($file,'.')
  $ext[ubound($ext)] ?
Next
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.