在vb中如何直接打开txt文件？？？/？？

[ancient_pet]

我在程序中写了Function LookFile() '参看已有记录
On Error GoTo err:
Dim Filename As String
LookCommonDi.Filter = "txt|*.txt|所有文件|*.*"
LookCommonDi.Action = 1
Filename = LookCommonDi.Filename
Exit Function
err:
End Function
想直接打开txt文件来查看，可是不行，在form里面放数据有太麻烦，
请问怎样可以象windows里面一样直接打开txt文件

[wyfzy521]

用Windows API函数：ShellExecute

[wyfzy521]

用Windows API函数：ShellExecute

[zys_11122]

这段代码只是得到了文件的名称,并没有真正的打开文件,参考open语句的帮助.

[softworms]

有shell（）函数吧！