Abrir archivo

[sirhamelef]

Hola a todos mi pregunta es como hago para abrir un archivo .htm o con otra extencion?
Les pongo el codigo de lo que hice haber donde me equivoco al menos lei por algun lado que se hacia algo de este estilo.Gracias

Private Sub cmdAyu_Click()
Dim numarch As Integer
Dim Archivo As String

numarch = FreeFile()
Archivo = "E:\hola.txt"

Open Archivo For Random As #numarch
'Close #numarch
End Sub

El problema es que no me abre nunca

[ranefi]

Hola sirhamelef, buena tarde. Prueba con esto:

Código:

Private sub Command1_Click()
           Dim NumArchivo As Long
           Dim Archivo As String

           NumArchivo = FreeFile()
           Archivo = "E:\hola.htm" <----AQUÍ DEBES TENER ESPECIFICAR QUE QUIERES ABRIR UNA PÀGINA WEB, PORQUE SUPONGO QUE ESO QUIERES, ENTONCES éSTE SERÀ EL ARCHIVO, EXISTA O NO

           Open Archivo For Append As #Numarchivo
                                    Print #NumArchivo, "Cualquier contenido"
                                    Print #NumArchivo, "Lo que sea que quieras poner"
           Close #NumArchivo
End Sub

Una cosa,     ¿por qué usas la unidad E?     ¿Es ésa una ruta valida en tu PC?

Espero y esto sea lo que necesitas. Nos vemos.

[sirhamelef]

Si la unidad e: es valida en mi PC bueno funciona lo que me dijiste  pero lo que necesito es  que me abra el archivo que ya tiene contenido y me lo muestre en pantalla, eso es lo que busco, no creo que sea complicado pero no me doy cuenta como.

gracias
Eze

[M_BuRNeD]

Este es el codigo para ver el contenido de un archivo:

Código:

Private Sub Command1_click()
Dim b As Integer
Dim c As Long
Dim d As String

      b = FreeFile
        Open "E:\hola.htm" For Input As b
        c = LOF(b)
        d = Input$(c, b)
        Close b
        MsgBox = d
End sub

[ranefi]

Este es el codigo para ver el contenido de un archivo:

Código:

Private Sub Command1_click()
Dim b As Integer
Dim c As Long
Dim d As String

                  b = FreeFile
                        Open "E:\hola.htm" For Input As b
                        c = LOF(b)
                        d = Input$(c, b)
                        Close b
                        MsgBox = d
End sub

Exactamente como lo dijo M_BuRNeD, sólo cambia MsgBox = d por MsgBox d.

Código:

'.
'.
MsgBox d

Nos vemos.

[M_BuRNeD]

Exactamente como lo dijo M_BuRNeD, sólo cambia MsgBox = d por MsgBox d.

Ups...  :  ... Pekeño fallo....

[sirhamelef]

Mil gracias muchacho!! que seria sin ustedes

saludos
Eze

[sirhamelef]

Che esta re piola lo que me dijeron, ahora si yo quiero que directamente se abra el bloc de notas con el contenido de ese txt o el browser con el contenido de un html como deberia hacer?. De todas formas lo que me pasaron me sirvio para otra cosita que necesitaba jejejeje.

Gracias
Eze

[Punk-Rock]

Para deskargar el konenido de una pagina web (s decir, poner todo el kodigo fuente de la web en un html) es necesario usar el Inet, este kontrol te permite descargar paginas desde internet sin tener ke actuar tu mismo manualmente.

Si kieres te paso un link del kontrol Inet.

Salu2

Hendrix

[ranefi]

Buen día sirhamelef. Pues es fácil lo que pides, simplemente copia lo siguiente:

Agregar 1 CommandButton e REPLACEar el siguiente código

Código:

Private Declare Function WinExec Lib "kernel32" _
    (ByVal lpCmdLine As String, _
    ByVal nCmdShow As Long) As Long


Private Sub Command1_Click()
    WinExec "Notepad.exe c:\soyjiman.txt", 10
End Sub

Espero y esto te ayude. Nos vemos.

[Punk-Rock]

Anu mas facil:

Código:

Shell ("c:\soyjiman.txt")

Salu2

Hendrix

[ranefi]

Anu mas facil:

Código:

Shell ("c:\soyjiman.txt")

Salu2

Hendrix

Emmm así no funciona pelao.

[Punk-Rock]

  juraria ke antes funcionaba esto.....

Pero weno, pos esto:

Shell "cmd.exe /c start C:\dirc.txt", vbHide

Salu2

Hendrix

[ranefi]

juraria ke antes funcionaba esto.....

Pero weno, pos esto:

Shell "cmd.exe /c start C:\dirc.txt", vbHide

Salu2

Hendrix

    ¡Àndale! ése sí funciona. Pero cabe hacer mención que sólo funcionaría en Windows superiores a 98. Buen código : )