Como puedo Llamar a un readme.txt en visual basic ?

[forrestgump]

Amigos quiza para ustedes sea sumamente muy facil pues quiza ya lo han hecho pero si sabe alguien podria darme un Tip ?

necesito llamar a mi archivo README.TXT que yo mismo hice osea solo quiero llamarlo al momento de dra click en el menu readme me habra ese archivo de Notas.

[Avellaneda]

Iniciado por forrestgump

Amigos quiza para ustedes sea sumamente muy facil pues quiza ya lo han hecho pero si sabe alguien podria darme un Tip ?

necesito llamar a mi archivo README.TXT que yo mismo hice osea solo quiero llamarlo al momento de dra click en el menu readme me habra ese archivo de Notas.

Hola,
no dejas claro si quieres que se abra en el Boc de notas o mostrarlo en un control de tu formulario.

En el primer caso, puedes usar la API ShellExecute:

Código:

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
Const SW_SHOWNORMAL = 1

Private Sub mnuReadme_Click()
ShellExecute Me.hwnd, vbNullString, "C:\Readme.txt", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

En el segundo, suponiendo que quieres cargar las líneas en un control TextBox multiline:

Código:

Private Sub mnuReadme_Click()
    Dim sLinea As String, sArchivo As String
    sArchivo = App.Path & "\Readme.txt"
    Open sArchivo For Input As #1
    Text1.Text = ""
    Do While Not EOF(1)
        Line Input #1, sLinea
        Text1.Text = Text1.Text & sLinea
    Loop
    Close #1
End Sub

En este último caso suponemos que el archivo de encuentra en el directorio de la aplicación, pero en ambos tienes que poner la ruta completa en donde se encuentra el archivo.

[forrestgump]

MUCHAS GRACIAS AVELLANEDA.


tu y David el Grande siempre tan participativos se les agradece que sean asi.