发送快捷方式
来源:互联网 发布:将字符串添加到json 编辑:程序博客网 时间:2024/06/14 21:01
Set unNamedArguments = WScript.Arguments.UnNamed
set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFolder = "D:\Program Files\A\"
for count = 0 to wscript.arguments.count-1 Step 1
filename = unNamedArguments.Item(count)
Set objFile = objFSO.GetFile(filename)
set oShellLink = WshShell.CreateShortcut(strFolder & objFSO.GetBaseName(filename) & ".lnk")
oShellLink.TargetPath = filename
oShellLink.WindowStyle = 1
oShellLink.WorkingDirectory = objFSO.GetParentFolderName(filename)
oShellLink.Save
NEXT
set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFolder = "D:\Program Files\A\"
for count = 0 to wscript.arguments.count-1 Step 1
filename = unNamedArguments.Item(count)
Set objFile = objFSO.GetFile(filename)
set oShellLink = WshShell.CreateShortcut(strFolder & objFSO.GetBaseName(filename) & ".lnk")
oShellLink.TargetPath = filename
oShellLink.WindowStyle = 1
oShellLink.WorkingDirectory = objFSO.GetParentFolderName(filename)
oShellLink.Save
NEXT
0 0
- 发送快捷方式
- android发送桌面快捷方式
- 发送快捷方式到指定文件夹
- WINDOWS7没有"发送到桌面快捷方式“
- vista系统恢复发送到桌面快捷方式
- win7发送到桌面快捷方式丢失解决方案
- 仿微信公众号发送到桌面快捷方式
- windows无法找到发送到桌面快捷方式
- 一个“发送到任意文件夹快捷方式”的脚本程序
- 右键发送到"桌面快捷方式"等没了的解决办法
- 右键发送(sendto),创建快捷方式到自定义的位置
- win 7把快捷方式加入到“发送到”
- 通过发送广播来向桌面添加一个快捷方式
- 右键发送(sendto),创建快捷方式到自定义的位置
- 如何快速添加快捷方式到“发送到”选项...
- 电脑 右击 发送到没有桌面快捷方式解决方法
- Windows7 创建右键发送到桌面的快捷方式
- 快捷方式
- android 网络编程-http通信
- 黑马程序员_一些有用的数据类型和NSString
- 机器学习 实用技巧
- BSS段
- 测速
- 发送快捷方式
- 垃圾清理
- springmvc梳理2
- 实验二:算法基本功和综合思考
- dup与dup2
- js管理window.location.href分段加载,和不影响其他js文件或方法加载的分段处理
- OpenGL博客资源
- 【LeetCode】Trapping Rain Water
- VMWare9下基于Ubuntu12.10搭建Hadoop-1.2.1集群