>o1 = CREATEOBJECT([wscript.shell]) > >*** If this shotcut is placed in All Users Desktop folder cghange following line to >*** lcUserDeskTop = o1.SpecialFolders(0) > >lcUserDeskTop = o1.SpecialFolders(4)+[\MyFile.LNK] >*Declare INTEGER GetShortPathName IN WIN32API STRING lpszLongPath, STRING @lpszShortPath, INTEGER lBuffer >*LOCAL lcShortName >*lcShortName = SPACE(254) >*lnReturn = GetShortPathName(lcUserDeskTop,@lcShortName,254) >o1.Run(lcUserDeskTop,3,.f.) >>
>>>o1 = CREATEOBJECT([wscript.shell]) >>> >>>*** If this shotcut is placed in All Users Desktop folder cghange following line to >>>*** lcUserDeskTop = o1.SpecialFolders(0) >>> >>>lcUserDeskTop = o1.SpecialFolders(4)+[\MyFile.LNK] >>>Declare INTEGER GetShortPathName IN WIN32API STRING lpszLongPath, STRING @lpszShortPath, INTEGER lBuffer >>>LOCAL lcShortName >>>lcShortName = SPACE(254) >>>lnReturn = GetShortPathName(lcUserDeskTop,@lcShortName,254) >>>o1.Run(LEFT(lcShortName,lnReturn),3,.f.) >>>