Question

VB中怎么实现command单击打开text中输入的文件名而对应的文件

本人新手，如题，我创建了一个text框和一个command框，实现的预期结果是这样，在text中输入cmd.exe，单击command就可以打开c:\VBVB66\cmd 以下是我写的代码，大神看看为什么不对呢，好纠结。

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 Sub Command8_Click()

ShellExecute Me.hwnd, "open", "C:\VBVB66\" & Text1.Text, vbNullString, vbNullString, 1

End Sub

附图片：

求大神指导





Answer 1

依图片 CMD应快捷方式 非程序本身 所以不能执行
执行快捷方式例:
ShellExecute 0, "open", "C:\VBVB66\[DVR ABCD]快捷方式.lnk", "", vbNullString, SW_SHOWNORMAL
或
Shell "Rundll32 url.dll, FileProtocolHandler C:\VBVB66\[DVR ABCD]快捷方式.lnk"

Answer 2

你没看到你的cmd文件是一个快捷方式吗，它是一个lnk文件，而且你直接用shell这个函数不行吗

追问

我的目的是要用text输入的文件名command打开文件，你说的那种下面那个已经可以实现，再说这不关ink文件的事