*SET STEP ON mFile = (ADDBS(strDesktop) + FORCEEXT(newname, "lnk")) if FILE(mFile) == .t. DELETE FILE(mFile) endif RENAME ; (ADDBS(strDesktop) + lcShortcut + ".lnk") ; TO ; (ADDBS(strDesktop) + FORCEEXT(newname, "lnk"))