vbs创建快捷方式

Dim FileNameFileName = "Mffff" '字符串Set shortcut = CreateObject("WScript.Shell").CreateShortcut(CreateObject("WScript.Shell").SpecialFolders("Desktop") & + "\" + FileName + ".lnk")shortcut.Description = "My shortcut" '属性描述shortcut.TargetPath = "H:\000"‘快捷方式目标对象的位置shortcut.Arguments = "/Arguments:Shortcut" '参数说明shortcut.Save'对象方法  保存快捷方式

set WshShell    = Wscript.CreateObject("Wscript.Shell")     strDesktop  = WshShell.SpecialFolders("Desktop")  '在桌面创建快捷方式 set oShellLink  = WshShell.CreateShortcut(strDesktop & "\\QQ.lnk")                            '创建一个快捷方式对象,其在桌面上显示的名字为"QQ" oShellLink.TargetPath  = "D:\Program Files\Tencent\QQ\qq.exe"                            '设置快捷方式的执行路径 oShellLink.WindowStyle = 3         '运行方式oShellLink.Hotkey      = "Ctrl+Alt+e"  '设置快捷方式的快捷键 oShellLink.IconLocation= "D:\Program Files\Tencent\QQ\qq.exe,0" '设置快捷方式的图标oShellLink.Description = "IDEasm v1.0"  '设置快捷方式的描述 oShellLink.WorkingDirectory = "D:\"          '起始位置oShellLink.Save -------------------------------------------------------------------------------------- （1）设置快捷方式图标时，有以下方式： "D:\Program Files\Tencent\QQ\qq.exe,0"  '使用程序自身图标"C:\windows\system32\shell32.dll   ,1"  '使用系统自带图标"D:\My projects\ICO\book.ico"           '使用自定义图标 注：以上路径中不能出现中文字符，否则图标可能无法显示。 （2）运行方式： 参数1默认窗口激活，参数3最大化显示，参数7最小化显示