13/02/2005, 06:17
|
| | | Fecha de Ingreso: noviembre-2003
Mensajes: 121
Antigüedad: 21 años, 5 meses Puntos: 0 | |
| Acceso a Fichero Binario
Hola a todos.
Tengo la siguiente función para acceder a un fichero binario. La cuestión es que no me funciona, no me muestra los msgbox.
Alguien me puede ayudar, no se que estoy haciendo mal.
Private Sub tipo_puntos_Binary()
Dim int_num As Integer
Dim str_linea As String
int_num = FreeFile
str_linea = Space$(5)
Open strRutaPun_P For Binary As int_num
Get int_num, , str_linea
MsgBox (str_linea)
str_linea = Space$(15)
Get int_num, , str_linea
MsgBox (str_linea)
Close int_num
End Sub
__________________
"El saber no me sirve de nada si no es para enseñar" |