请问如何通过vb根据用户查询打开.txt文本？

[fayeada]

我用的是shell("d:\winnt\Notepad.exe",a.txt)?有什么问题？为什么编不过去？

[zhengchong]

shell "Notepad.exe a.txt")?

[zhengchong]

shell "Notepad.exe a.txt"

[crystalinpara]

shell "d:\winnt\Notepad.exe"+"a.txt"

[shortppsy]

a=shell ("c:\windows\Notepad.exe")
这样可以，我试过~

[easypower]

同意

[fayeada]

那用户的查询条件加在哪里呢？

[mouseanAnya]

在模块中添加下列声明：
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

Public Const SW_MAXIMIZE = 3

把你的代码修改为
ShellExecute 0, "open", "路径名称\a.txt", "", "", SW_MAXIMIZE

试一试

[shortppsy]

可以用command控件加上条件啊~

[fayeada]

Private Sub Command2_Click()
Dim request As String
If RaceNo.Text = "" Then
MsgBox " 输入要查询随机排位的场次"
Exit Sub
Else
request = RaceNo.Text
Call Shell("Notepad.exe D:\newweb\&request&".txt", 1)
End If
End Sub

[fayeada]

Call Shell("Notepad.exe D:\newweb\&request&".txt", 1)
我想这样生加。raceno.text接受用户的查询条件。可是不成呀？

[mouseanAnya]

Call Shell("Notepad.exe D:\newweb\" & request & ".txt", 1)