vbs创建快捷方式

Dim FileName
	FileName = "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最小化显示


  • 0
    点赞
  • 1
    收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值