一个制作桌面快捷方式的问题

Question

win2000 的不同 User 的桌面亦不同!'引用 Windows Script Host Model
Private Sub Command1_Click()
'Dim x As New IWshRuntimeLibrary.WshShell WSH v4.6
'Dim y As IWshRuntimeLibrary.WshShortcut
Dim x As New IWshRuntimeLibrary.IWshShell_Class
Dim y As IWshRuntimeLibrary.IWshShortcut_Class
Set y = x.CreateShortcut(x.SpecialFolders.Item("AllUsersDesktop") & "\test.lnk")
y.TargetPath = "calc.exe"
y.Save
End Sub

Answer 1

对，桌面路径不同。
还是用WSH简单，真简单。