Autor
es esta imagen:
es la del celular del facebook .
Código
Public Function AbrirArichivo(file As String)
Dim n_File As Integer
Dim Linea As String
n_File = FreeFile()
Open file For Input As n_File
While Not EOF(n_File)
Line Input #n_File, Linea
Wend
Close #n_File
AbrirArichivo = Linea
text2.text = AbrirArichivo ' en este texto se visualizan los siguiente bytes: ‰PNG
' solo esos bytes porq no se visualiza todo el archivo .
End Function
En línea
