在按钮的click事件中添加如下代码
'我们假设文件路径为abc.txt,现在读2的文件路径
Dim FileNum As String '用于获取输入框中的数字的变量
Dim FilePath As String '文件路径
Dim strTemp As String '临时变量
Dim strFile As String '获取所要启动的文件路径
FileNum = "2" '这里获取的是2,当有输入框的时候这里是输入框的Text值
FilePath = App.Path & "\abc.txt"
Open FilePath For Input As #1
Do Until EOF(1)
Line Input #1, strTemp
'分析读出的行,满足则退出
'MsgBox Mid(strTemp, 1, Len(FileNum) + 1)
If Mid(strTemp, 1, Len(FileNum) + 1) = FileNum & "=" Then
strFile = Mid(strTemp, Len(FileNum) + 2) '获取文件路径
Exit Do
End If
Loop
Close #1
If Dir(strFile) <> "" Then
Shell (strFile)
Else
MsgBox "文件不存在" & vbCr & strFile
End If