如何在vb的程序中打开别的文件

Question

我现在设计了一个程序,但现在该程序有一个功能是要当你点击一个按钮,他将打开一个文本的文件,在vb的环境里直接打开text文本文件!
这个功能我尝试着用shell函数做,但他只能打开.exe文件,文本文件打不开!
高手们,请指点一下 呀!
万分感谢!!!

Answer 1

Private Sub Command1_Click()
Shell "NOTEPAD.EXE D:\123.TXT", vbNormalFocus
End Sub

Answer 2

如果是想调用记事本打开文本文件，楼上的就行了如果要用自己的程序打开文件，用以下代码'放一个command1，一个text1
Function ReadFile(TXTFile As String) As String
    Dim fn As Integer: fn = FreeFile
    Open TXTFile For Binary Access Read As #fn
        ReadFile = Space(FileLen(TXTFile))
        Get #fn, , ReadFile
    Close #fn
End Functionsub command1_click()
    text1.text=readfile("文件路径")
end sub