Question

vb中一个按钮打开指定路径exe文件的代码

Answer 1

private sub command1_click()
shell "c:\1.exe"
end sub

追问

如果要打开text1.text所显示路径的文件呢？

追答

shell text1.text

Answer 2

Shell Text1.text

判断text1中指定的文件是否存在
个人认为这样可能更好一点
if Dir(Text1.text)<>"" then '文件存在，改成=""就是文件不存在
Shell Text1.text
End if

Answer 3

shell 文件所在路径。（路径要加英文引号）
如 ：shell '%SystemRoot%\system32\notepad.exe"
即可打开记事本。

Answer 4

Private Sub Command1_Click()
Dim strApp As String

strApp = "C:\WINDOWS\system32\notepad.exe"

Shell strApp, vbNormalFocus

End Sub

Answer 5

shell TEXT1.TEXT