Visual Basic - ABRIR UN ARCHIVO *.TXT DESDE VB

Hola amigos!!!!
Cómo están????

Tengo un archivo *.txt, el cual lo necesito abrir desde mi aplicación. Estoy utilizando el siguinete código.
Con este código me abre perfectamente los archivos de word, excel, power point. Pero no me abre los archivos con extension *.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 Command1_Click()
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("c:\formulario.txt") Then
lresult = ShellExecute(Me.hwnd, "open", "c:\formulario.txt", "", 0, SW_SHOWNORMAL)
End If
End Sub


Necesito que su valiosa ayuda...muchas gracias de antemano!!!!!!

Hola

Eso lo puedes hacer tambien sin necesitad del API de Windows.

Supongamos que quieres abrir tu archivo "c:\formulario.txt"

Lo que tienes que hacer es usar la funcion Shell del VB y se usa asi
Shell("Programa a ejecutar")

Bueno en este caso el programa que abre los archivo de texto es el Bloc de notas(Nombre interno en el sistema Notepad)
para abrir el bloc de notas seria asi
Shell("Notepad")
lo anterior nos abriria el bloc de notas con un archivo en blanco para que abra el archivo que quires hay que pasarle la ruta donde esta el archivo quedaria asi

Shell("Notepad c:\formulario.txt",vbmaximizedfocus)

Nota

El parametro vbmaximizedfocus no recuerdo si se escribe asi para verificar como se escrive y los otros valores que se pueden usar borra esa parte hasta la coma que tiene y vuelve a escribir la coma te saldran las opciones que se pueden colocar

Saludos
http://www.theemulator.tk