Question

vb6.0如何设置一个按钮可以同时打开exe和lnk文件

Function ReadShortCut(ByVal strFile As String) As String
If Len(Dir(strFile)) = 0 Or Right(strFile, 4) <> ".lnk" Then Exit Function
ReadShortCut = CreateObject("WScript.Shell").CreateShortcut(strFile).TargetPath
End Function

Private Sub Command2_Click()
Dim a As String
a = Text1.Text
Shell ReadShortCut(a)
Dim RetVal
RetVal = Shell(a, 1)
End Sub
上面一段如何更改。。文件路径为自己输入的

Answer 1

打开快捷方式：
Dim strFileName As String
strFileName = 路径名 & "\" & "快捷方式文件名称.lnk"
Shell "rundll32 url.dll,FileProtocolHandler " & Chr(34) & strFileName & Chr(34), vbNormalFocus

打开文件：
strFileName = 路径名 & "\" & "程序.exe"
Shell strFileName,1

Answer 2

按钮事件追加：
Shell("Internet Explorer.exe " & Exe文件路径)
Shell("Internet Explorer.exe " & Lnk文件路径)

追问

。。。看不太懂额。。。。刚学没几天。。。。求赐教

追答

双击按钮。写下上面2句话。
Exe文件路径：你调用的Exe的路径地址
Lnk文件路径：你调用的Lnk的路径地址

追问

。。。貌似没有那个Internet才可以的。。