|
楼主 |
发表于 2019-11-22 14:26:51
|
显示全部楼层
广东省江门市
新版本
|
系统_创建程序或文件快捷方式 | 逻辑型 | | |
程序或文件路径 | 文本型 | | | | 快捷方式输出目录 | 文本型 | | | | 快捷方式文件名称 | 文本型 | | | | 快捷方式图标 | 文本型 | | | | 快捷方式参数 | 文本型 | | | | 快捷方式备注 | 文本型 | | | | 快捷方式运行窗口 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | objShell | 对象 | | | objShellLink | 对象 | | | Returns | 逻辑型 | | | 提取程序目录 | 文本型 | | | 提取文件名称一 | 文本型 | | | 提取文件名称二 | 文本型 | | |
Returns = 假 如果真 (文件是否存在 (程序或文件路径 ) = 假)返回 (假)提取程序目录 = 取文本左边 (程序或文件路径, 倒找文本 (程序或文件路径, “\”, , 假))提取文件名称一 = 取文本右边 (程序或文件路径, 取文本长度 (程序或文件路径 ) - 取文本长度 (提取程序目录 )) 提取文件名称二 = 取文本左边 (提取文件名称一, 倒找文本 (提取文件名称一, “.”, , 假) - 1 )判断 (快捷方式运行窗口 = 1 或 快捷方式运行窗口 = 3 或 快捷方式运行窗口 = 7 )快捷方式运行窗口 = 1 如果真 (是否为空 (快捷方式输出目录 ) 或 快捷方式输出目录 = “”)快捷方式输出目录 = 提取程序目录 如果真 (是否为空 (快捷方式文件名称 ) 或 快捷方式文件名称 = “”)快捷方式文件名称 = 提取文件名称二 objShell.创建 (“Wscript.Shell”, )
objShellLink = objShell. 对象型方法 (“CreateShortcut”, 快捷方式输出目录 + 快捷方式文件名称 + “.lnk”) objShellLink. 写属性 (“TargetPath”, 程序或文件路径 ) objShellLink. 写属性 (“Arguments”, 快捷方式参数 ) objShellLink. 写属性 (“WorkingDirectory”, 取文本左边 (快捷方式输出目录, 取文本长度 (快捷方式输出目录 ) - 1 )) objShellLink. 写属性 (“Description”, 快捷方式备注 ) objShellLink. 写属性 (“IconLocation”, 快捷方式图标 ) objShellLink. 写属性 (“WindowStyle”, 快捷方式运行窗口 ) objShellLink. 对象型方法 (“Save”, ) 如果真 (文件是否存在 (快捷方式输出目录 + 快捷方式文件名称 + “.lnk”)) Returns = 真 返回 (Returns)
|
|