各位，这个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

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/s87q4m27vqv2ppm8vs.html