用vb如何运行文件

txt文件能运行吗？是不是其中含有能运行的代码？

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 Form_Load()
ShellExecute Me.hwnd, "OPEN", "C:\abc.txt", vbNullString, vbNullString, SW_SHOW
End Sub

用shell函数啊！

dim abc
abc = shell("c:\123.txt")

就这样就可以运行了。

先用shell调用cmd，然后利用cmd来打开txt。

代码：

Private Sub Command1_Click()
Shell "cmd /c start C:\WINDOWS\system32\eula.txt"
End Sub

打开.txt而已，何必那么麻烦：
Private Sub Command1_Click()
Dim strpath As String
strpath = "C:\1.txt"
Shell "NOTEPAD.EXE " & strpath, 1 '注意NOTEPAD.EXE后面有个空格
End Sub
如果只想调用系统记事本，可用Shell "NotePad ", vbNo