hola . estoy intentando abrir archivos de mi pc y encontro una imagen que no se abre.
es esta imagen:(http://static.ak.fbcdn.net/rsrc.php/v1/yt/r/FZaMKqARgC6.png)
es la del celular del facebook .
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
Debes abrir el archivo en modo binario.
gracias .. me re olvide del binario... xD: