contenido de un archivo

Iniciado por TheKiLLeR, 4 Noviembre 2005, 17:38 PM

0 Miembros y 1 Visitante están viendo este tema.

TheKiLLeR

Hola simplemente quiero que mi programa abra internamente un archivo y me muestre el contenido con msgbox, como se haria?
Gracias por la ayuda

Syphroot

si el archivo es de texto, averigua por google la instruccion Input o Get, pero si el archivo es un binario no te recomiendo mostrarlo con msgbox.

Basicamente la idea es hacer un bucle while, do, con las instrucciones anteriores... averigua en google...

saludos

Kizar

Dim Tamaño as string

open "C:\lala.exe" for binary as #1
Tamaño = Space$(LOF(1))
get #1,,Tamaño
CLose #1

msgbox tamaño

Salu2

NYlOn

Cita de: KiZaR en  5 Noviembre 2005, 12:14 PM
Dim Tamaño as string

open "C:\lala.exe" for binary as #1
Tamaño = Space$(LOF(1))
get #1,,Tamaño
CLose #1

msgbox tamaño

Salu2

Eso te muestera el tamaño del archivo...
Si keres ver el contenido del archivo hace esto:


Dim Contenido as string

Private Sub Command1_Click ()
    Open "C:\TuArchivo.exe" For Binary As #1
        Do While Not EOF(1)
            Get #1, , Contenido
        Loop
    Close #1
End Sub


Ahora q pienso bien no es asi el code en realida :S
Pero ak no tengo el VB asike no me puedo fijar XDD
cuando llegue a mi ksa posteo xDDD
Mientras fijate si eso t va, modificalo un poco

salu2 !

TheKiLLeR