各位，这个win10系统的“发送到桌面快捷方式”怎么弄出来

可以利用vbs发送快捷方式到某一文件夹的方式，实现发送到桌面快捷方式的效果
将以下代码复制到记事本，修改代码中strDestination的路径为桌面的路径，保存文件名为“发送到桌面快捷方式.vbs”，并将此文件快捷方式放到 SendTo目录下，可修改快捷方式图标为桌面图标
''=============================================================
Const strDestination = "E:\Users\Desktop\"

Set objArgs = WScript.Arguments
Set WshShell = WScript.CreateObject("WScript.Shell")

For i = 0 to objArgs.Count - 1 '' Loop through all arguments.
strShortCut = strDestination & "\" & GetAName(objArgs(i)) & ".lnk"
set oShellLink = WshShell.CreateShortcut(strShortCut)
oShellLink.TargetPath = objArgs(i)
oShellLink.WindowStyle = 1
''oShellLink.Description = "Created By Ivan Chen"
oShellLink.WorkingDirectory = Left(objArgs(i), InStrRev(objArgs(i), "\"))
oShellLink.Save
Next

Function GetAName(DriveSpec)
Dim fso,a
Set fso = CreateObject("Scripting.FileSystemObject")
GetAName = fso.GetFileName(DriveSpec)
a=Split(GetAName,".")
GetAName = a(0)
End Function
''end

1，如果“发送”中其他没问题
可以先在“这台计算机”中的c盘搜索
send
搜索到“sendto”文件夹以后，双击进入
新建一个文本文件，并输入
Desktop
然后另存为，选择所有文件
文件名为
Desktop (create shortcunt).DeskLink
然后就可以使用“发送到桌面”了

2，使用安全软件进行系统修复也可以