出版日期：2000-11-29　总期号：396　本年期号：46

本期导读 热点聚焦 硬件世界 信息电器 软件天地 现代办公 网络时代 CCE评测 电脑教育 编读往来

文件系统操作一览（三） 　　经过两期的学习，大家是否已经掌握了文件系统的操作，今天是《文件系统操作一览》的完结篇，希望帮助你在VB编程中更上一层楼。 　　建立快捷方式 解读快捷方式(.lnk)中的消息 　　这两个问题，都可以在 VB 的光盘中找到解答，使用“查找”功能，可以在光盘之中找到 Shelllnk 目录（注：VB 5.0与VB 6.0 的光盘中都含有这个目录，但路径略有不同），找到这个目录之后，打开其中的 Shelllnk.vbp 工程，然后将它编译成 Shelllnk.dll，接着我们便可以利用 Shelllnk.dll 所提供的对象来解读快捷方式中的消息 ，也可以建立快捷方式。（注：Shelllnk.dll 是一个 ActiveX DLL 文件） 　　引用 Shelllnk 之中的对象 　　编译好 Shelllnk.dll 之后，你可以关闭 Shelllnk.vbp 工程，接下来打开另一个程序来引用 Shelllnk.dll 之中的对象，引用的方法是选取菜单的“工程/引用”，然后在“引用”对话框中，选取“pShelllnk”即可以引用。 　　引用 “pShelllnk” 之后，接下来要利用以下语句建立一个 cShelllnk 对象： 　　Dim lnkObj As New cShelllnk 　　在 cShelllnk 对象中，我们可使用的方法如下： 　　CreateShellLink：用来建立快捷方式。 　　GetShellLinkInfo：用来读取快捷方式中的消息。 　　GetSystemFolderPath：用来读取特殊文件夹的所在目录。 　　使用 GetShellLinkInfo 方法 　　GetShellLinkInfo 含有以下几个参数： 　　LnkFile：传入 .lnk 快捷方式。 　　ExeFile：返回快捷方式之中所定义的执行文件。 　　WorkDir：返回快捷方式之中所定义的工作目录。 　　ExeArgs：返回快捷方式之中所定义的执行文件参数。 　　IconFile：返回快捷方式之中所定义的图标来源文件。 　　IconIdx：返回快捷方式之中所定义的图标来源文件之索引。 　　ShowCmd：返回快捷方式之中所定义的窗口显示方式。 　　示例如下： 　　Dim lnkObj As New cShellLink 　　Dim ExeFile As String, WorkDir As String, ExeArgs As String 　　Dim IconFile As String, IconIdx As Long, ShowCmd As Long 　　lnkObj.GetShellLinkInfo ″d:\NetCaptor 6.0.lnk″, ExeFile,WorkDir, ExeArgs, IconFile, IconIdx, ShowCmd 　　′读取“d:\NetCaptor 6.0.lnk”的信息，假设以存在 　　Print ″Exefile =″, ExeFile ′目标位置 　　Print ″WorkDir =″, WorkDir ′起始位置 　　Print ″ExeArgs =″, ExeArgs 　　Print ″IconFile = ″, IconFile ′图标文件 　　Print ″IconIdx =″, IconIdx ′图标索引 　　Print ″ShowCmd =″, ShowCmd ′运行方式 　　使用 CreateShellLink 方法 　　CreateShellLink 的参数跟 GetShellLinkInfo 完全相同，利用 CreateShellLink 方法来建立快捷方式的例子如下： 　　Dim lnkObj As New cShellLink 　　Dim ExeFile As String, WorkDir As String, ExeArgs As String 　　Dim IconFile As String, IconIdx As Long, ShowCmd As Long 　　′先设置 ExeFile、WorkDir 等参数值 　　lnkObj.CreateShellLink 欲建立快捷方式的完整路径名,ExeFile,WorkDir, ExeArgs, IconFile, IconIdx, ShowCmd 　　(影子 VB爱好者乐园http://www.d1vb.com)