下面是我写的一个VBS文件，该文件有两个参数，一个是你要建立的ShortCut的名字，另一个是这个ShortCut指向哪个folder，如下：
'Written by Sun Zhenfang 200601
'Argument1 - shortcut name
'Argument2 - shortcut target path
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
Set oShellLink = WshShell.CreateShortcut(WScript.Arguments.Item(0)+".lnk")
oShellLink.TargetPath = WScript.Arguments.Item(1)
oShellLink.Save
Set oShellLink = Nothing
Set WshShell = Nothing
调用例子
CreateDirShc.vbs CDisk C:
将在运行这个VBS的目录创建一个名字叫CDisk的指向C盘的ShortCut.