主题：[分享] 生成快捷方式

发布前后的文件名，请保持一致。

下面的代码，发布前后均有效。

登录窗口的确定按钮：

If e.Form.Controls("CheckBox快捷方式").Checked Then
     Dim x As New mylnk.mylnk
     Dim fl As String = FileSys.GetParentPath(ProjectPath) & "\" & FileSys.GetName(ProjectFile).Replace("FoxEx","exe")
     If FileSys.FileExists(fl) Then
           x.CreateShortCut(FileSys.GetName(fl),fl)
     Else
           x.CreateShortCut(FileSys.GetName(ProjectFile),ProjectFile)
     End If

End If