可以有好多方法实现你的愿望:
在这里我给你一种方法,并留给你一个题目:
方法:
Private Sub Command1_Click()
'Use Windows Script Host
' ------------------------------------------------------------------------
' Copyright (C) Rosement Corporation
Dim WSHShell As New IWshShell_Class
Dim MyShortcut
Set MyShortcut = WSHShell.CreateShortcut(Your locate path& "\Shortcut to notepad.lnk")
' Set shortcut object properties and save it
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe")
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%")
MyShortcut.WindowStyle = 4
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe, 0")
MyShortcut.Save
End Sub
在编程中必须引用WINDOWS SCRIPTING HOST OBJECT MODEL
问题:你用REGISTERY也能实现,留给你了,哈哈!