Hola simplemente quiero que mi programa abra internamente un archivo y me muestre el contenido con msgbox, como se haria?
Gracias por la ayuda
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
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
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 !
ya me anduvo, mil gracias