vba - 在用户桌面上创建当前文件夹的快捷方式

Question

我想在用户桌面上自动创建当前文件夹的快捷方式。我正在使用的一些用户不知道如何创建快捷方式或如何拖放文件夹。我只想创建一个名为“单击我在您的桌面上创建此文件夹的快捷方式”的文件，该文件可以在我想要的任何文件夹中使用。

例如，如果我运行 C:\myRandomFolder\CLICK ME.whatever，我希望它在“D:\Documents and Settings\%username%\Desktop”上创建一个名为“myRandomFolder”的“C:\myRandomFolder\”快捷方式.

我想知道是否最好使用批处理文件 (.bat)、VB 脚本 (.vbs) 或任何其他脚本语言来执行此操作。什么是最简单和更好的方法？

Answer 1

最好的方法最终似乎是 VBS 脚本。这是我最终正确工作的内容:

Option Explicit
On Error Resume Next

Private WshShell
Private strDesktop
Private oShellLink
Private aSplit

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
aSplit = Split(WScript.ScriptFullName, "\")

set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & aSplit(Ubound(aSplit) - 1) & ".lnk")
oShellLink.TargetPath = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
oShellLink.WindowStyle = 1
oShellLink.Description = "Shortcut Script"
oShellLink.WorkingDirectory = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
oShellLink.Save 

MsgBox "Shortcut to " & Replace(WScript.ScriptFullName, WScript.ScriptName, "") & " added yo your desktop!"