PROCEDURE iOPenRecentDocFile cSpecialFolderPath = space(255) DECLARE SHGetSpecialFolderPath IN SHELL32.DLL ; LONG hwndOwner, ; STRING @cSpecialFolderPath, ; LONG nWhichFolder CSIDL_RECENT = 8 SHGetSpecialFolderPath(0, @cSpecialFolderPath, CSIDL_RECENT) cSpecialFolderPath=SubStr(RTrim(cSpecialFolderPath),1, ; Len(RTrim(cSpecialFolderPath))-1) CLEAR DLLS IF ADIR(aa,cSpecialFolderPath+"\*.doc.lnk")<=0 ?"NO recently used doc files found." RETURN endif DECLARE INTEGER ShellExecute IN SHELL32.dll ; INTEGER nWinHandle, ; STRING cOperation, ; STRING cFileName, ; STRING cParameters, ; STRING cDirectory, ; INTEGER nShowWindow ?ShellExecute(0,"Open",cSpecialFolderPath+"\"+aa[1,1], "", '', 1) CLEAR DLLS>Yes,