dim ShutName as string ="在这里输入快捷方式的名称.lnk"
For Each s As String In FileSys.GetFiles(Environment.GetFolderPath(Environment.SpecialFolder.Desktop))
If s.Contains(ShutName) = True Then
return
End If
Next
Dim FilePath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Dim wsh As object = CreateObject("WScript.Shell")
Dim PathLink As String =FilePath & "\" & ShutName
Dim wshs As object = wsh.CreateShortcut(PathLink)
wshs.TargetPath = "当前运行路径" & "\当前运行的文件名称.exe"
wshs.WorkingDirectory = 当前运行路径
wshs.Save()
wshs = Nothing
wsh = Nothing
加好友 
发短信
Post By：2022/10/27 12:51:00 [只看该作者]
