-------------------------------------------------
wjkqx=SYS(5)+CURDIR()+"数字3-彩票软件.exe"
m.cFile = '&wjkqx'      && 2000 改为 c:/winnt/notepad.exe
*!* -------------------------------------------------
CreateShortcut( m.cFile, '数字3-彩票软件' )
*!* -------------------------------------------------
*!* 利用 shell 对象创建（原创）
*!* -------------------------------------------------
FUNCTION CreateShortcut( tcExeFile, tcLinkName)
  LOCAL oShell, oFolder, oFile
  m.oShell = CREATEOBJECT( 'Shell.Application')
  m.oFolder = m.oShell.NameSpace( 0 )
   STRTOFILE( '', m.oFolder.Self.Path + '/' + m.tcLinkName + '.lnk' )
    m.oFile = m.oFolder.ParseName( m.tcLinkName + '.lnk' )
  IF ISNULL( m.oFile )
    RETURN .F.
  ELSE
    WITH m.oFile.GetLink()
      .SetIconLocation( m.tcExeFile, 0)
      .Path = m.tcExeFile
      .WorkingDirectory = JUSTPATH( m.tcExeFile)
      .Save()
    ENDWITH
  ENDIF
ENDFUNC

发上这些代码是创建桌面快捷的 但我想如果桌面已经有了 不再创建了 怎么修改代码呀
快捷已经创建了 第二次运行程序不创建了 要去判断呀 怎样修改呀

如果要试试代码 可以把文件名 修改自己电脑中有的文件名
谢谢指点

[此贴子已经被作者于2017-5-28 14:48编辑过]

STRTOFILE( '', m.oFolder.Self.Path + '/' + m.tcLinkName + '.lnk' )
从这句看文件是：
m.oFolder.Self.Path + '/' + m.tcLinkName + '.lnk'
试试判断这个文件是否存在

试过 不行

试了一下，可行的。
试创建一个桌面快捷方式“记事本”，创建前后用FILE()检测是可行的。

[此贴子已经被作者于2017-5-29 21:44编辑过]

学习一下

学习啦，谢谢！