Office中国论坛/Access中国论坛

标题: 创建快捷方式：Vb5stkit.dll未找到？ [打印本页]

作者: 高处不胜寒 时间: 2005-2-28 16:05
标题: 创建快捷方式：Vb5stkit.dll未找到？
Option Compare Database

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

Private Declare Function OSfCreateShellLink Lib "Vb5stkit.dll" Alias "fCreateShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String) As Long

Private Declare Function OSfRemoveShellLink Lib "Vb5stkit.dll" Alias "fRemoveShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String) As Long

Private Sub 命令0_Click()

lresult = OSfCreateShellLink("..\..\desktop", "记事本", "c:\Windows\notepad.exe", "")

End Sub

[attach]9106[/attach]

作者: 徐阿鹏 时间: 2005-2-28 16:45
Private Declare Function OSfCreateShellGroup Lib "Vb5stkit.dll" Alias "fCreateShellFolder" (ByVal lpstrDirName As String) As Long

好像是你引用了这个文件！但是在系统的system或者system32的文件夹中又找不到这个文件

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)