ShellExecute居然无法打开快捷方式？？？

[roger_xiong]

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


ShellExecute Me.hwnd, "open", "口令列表.lnk", vbNullString, app.path, 1



能够返回非0值，而且能够运行其他类型的文件，就是无法打开快捷方式(.lnk)？？？到底怎么回事呀？

[tztz520]

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()
ShellExecute Me.hWnd, vbNullString, "C:\Documents and Settings\abc1\桌面\cc.lnk", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

[DemonLoveLizzy]

ShellExecute Me.hwnd, "",app.path & "口令列表.lnk", vbNullString,"" , 1

[roger_xiong]

晕倒，居然不要写“open”，可是写了"open"在一些机子上也有用哦～奇怪的事情～。