[求助]请教：如何用代码生成SYSTEM.MDW的桌面快捷方式？

yachtz

谢谢！

zhengjialon

这个可能要用API做了,(我也找不到方法),ACCESS的VBA里没有直接的方法.

hi-wzj

创建和删除快捷方式  

　　OSfCreateShellGroup，OSfCreateShellLink，OSfRemoveShellLink三个API函数存在于VB的一个动态连接库Vb5stkit.dll中，使用它们可以方便的创建桌面上或是开始菜单中的快捷方式。　　我们先来声明以上几个API函数，如下所示：

　　　Private Declare Function OSfCreateShellGroup Lib "Vb5stkit.dll" Alias "fCreateShellFolder" (ByVal lpstrDirName As String) As Long



返回值

Long，非零表示成功，零表示失败 参数： 意义

lpstrfoldername String,指定保存快捷方式的文件夹,默认为"c:\Windows\startmenu\programs"

lpstrlinkname String，指定快捷方式的名称

lpstrpathname String，指定快捷方式所指向的应用程序或文件 　　声明完后就可以在程序中使用这几个函数了，创建一个桌面上的快捷方式吧，只须一句代码即可：lresult = OSfCreateShellLink("..\..\desktop", "记事本","c:\Windows\notepad.exe", "")其中"..\..\desktop"是指桌面所在的目录，"记事本"是快捷方式的名称，而快捷方式所指向的目标文件是"c:\windows\notepad.exe"。

yachtz

谢谢!但是此时需要生成的快捷方式的命令行是形如:   path\MSACCESS.EXE path\databasename.mdb /wrkgrp path\systemn.mdw,是否可以直接套用呢?