创建快捷方式模块

.如果 (是否为空 (源文件))
源文件 ＝ 选择 (取文本右边 (取运行目录 (), 1) ＝ “”, 取运行目录 (), 取运行目录 () ＋ “”) ＋ 取执行文件名 ()
文件名 ＝ 取执行文件名 ()
.否则
文件名 ＝ 取文本右边 (源文件, 取文本长度 (源文件) － 倒找文本 (源文件, “”, , 真))
.如果结束
添加文档记录 (2, 源文件)
操作系统目录 ＝ 取空白文本 (256)
取操作系统目录 (操作系统目录, 255)
操作系统目录 ＝ 删首尾空 (操作系统目录)
易语言创建快捷方式模块例子。