lni = 0 oShell = CREATEOBJECT('WScript.Shell') oFSO = CREATEOBJECT('Scripting.FileSystemObject') lcrecent = oShell.SpecialFolders('Recent') oFolder = oFSO.GetFolder(lcrecent) FOR EACH oFile IN oFolder.Files oLink = oShell.CreateShortcut(oFile.Path) IF JUSTEXT(UPPER(oLink.TargetPath)) = 'PRG' lni = lni + 1 DIMENSION a_prgs[lni, 2] a_prgs[lni, 1] = oLink.TargetPath a_prgs[lni, 2] = oFile.DateLastModified ENDIF NEXT oShell = NULL oFSO = NULL IF lni > 0 = ASORT(a_prgs, 2, lni * 2, 1) MODIFY COMMAND (a_prgs[1, 1]) ENDIFWithout the WSH, you could use, ADIR() and my LNKFILES.DLL in the download section. There are, however, some problems with this approach. First, while the DLL does return some of the special folders, the Recent folder isn't among them. Second, you'd have to combine the date/times returned in ADIR() into a date/time data type for the array.