oShell = CREATEOBJECT("WScript.Shell") * Get the location of the recent folder lcpath = oShell.SpecialFolders("Recent") * Load an array with the shortcut link file names lnlast = ADIR(a_dir, lcpath + "\*.LNK") FOR lni = 1 TO lnlast oShortcut = oShell.CreateShortCut(lcpath + "\" + a_dir[lni, 1]) ? oShortcut.TargetPath NEXT