VB6 GetNewestFiles

Hi, I’d like a VB6 function that returns the most recent X files in a folder matching a certain regular expression. It should return an array of the file names (without paths). It should be called as follows tarrFilenames = GetNewestFiles(tstrFolder, tintCount, tstrPattern [optional]) In this case the regular expression might be “.*ben.*\.sql”. If there are fewer than tintCount matching files, return an array of those found. The code should use the built-in RegExp and FileSystemObject libraries. The code should be readable and commented: we have more VB6 work available to good quality developers. Thanks Ben Horton