Office VBA开发经典:中级进阶卷
上QQ阅读APP看书,第一时间看更新

2.4 创建快捷方式

Windows允许用户在文件夹中或者桌面(桌面是系统盘下的一个特殊文件夹)为文件或网址创建快捷方式。所谓的快捷方式,其实是一个扩展名为.lnk的图标文件。

在桌面上查看搜狗高速浏览器的快捷方式的属性,可以看到这个快捷方式指向的文件是SogouExplorer.exe,也就是说,双击快捷方式就相当于双击了搜狗高速浏览器的执行文件,如图2-35所示。

然后切换到“详细信息”选项卡,可以看到该快捷方式的完整路径,如图2-36所示。

图2-35 搜狗高速浏览器的桌面快捷方式

图2-36 快捷方式的详细信息

看到所在路径是桌面,文件名是“搜狗高速浏览器.lnk”。

2.4.1 创建文件的快捷方式

创建快捷方式也可以通过编程的方式实现。具体步骤如下。

首先,使用WshShell的CreateShortCut方法创建一个快捷方式,会产生一个WshShortcut对象,然后,为该对象设置有关属性。

 TargetPath:目标路径,也就是快捷方式指向的文件路径。

 IconLocation:自定义图标的位置,也就是.ico格式的图标文件位置。

 HotKey:快捷键。

最后,保存快捷键。

当然,在创建快捷方式之前应该先判断桌面是否已经有了同名的快捷方式,如果已存在,会创建失败。

下面的代码首先判断桌面上是否存在Windows计算器的快捷方式,如果已有快捷方式,则弹出警告对话框,不予创建。否则,自动在桌面创建一个名为calc.lnk的快捷方式。

代码分析:变量Desk用来获取桌面所在的文件夹路径,对象变量mySht就是快捷方式本身。读者可以根据需要自行调整TargetPath、IconLocation这些参数。

运行上述代码后,可以看到桌面上多了一个快捷方式。图2-37所示为calc快捷方式的属性。

图2-37 自动创建桌面快捷方式

如果双击该快捷方式,或者按下快捷键【Ctrl+Alt+F7】,会自动弹出计算器。

2.4.2 创建网址的快捷方式

除了可以创建本机文件的快捷方式,还可以创建网址的快捷方式,只要双击该快捷方式,就自动在默认的浏览器中打开该网页。

网址快捷方式与上面介绍过的普通快捷方式有几点不同。

 对象类型不同,网址快捷方式的对象类型是WshURLShortcut。

 快捷方式扩展名不同,网址快捷方式的扩展名是.url,不是.lnk。

 没有HotKey属性,不支持快捷键的设定。

下面的过程自动在桌面创建一个网址快捷方式。

代码分析:首先判断桌面是否已存在该网址快捷方式,如果存在,则先删除。

运行上述代码,会看到桌面多了一个快捷方式。图2-38所示为创建的MaHouPao快捷方式的属性。

图2-38 网址快捷方式属性