En la llamada a la API ReadFile hay un par de errores:
- El buffer se lo tienes que pasar por valor.
- No le indicas el número de bytes que tiene que leer (tu variable nada, que no está inicializada)
Debería ser así:
o mejor aún:
Saludos.
- El buffer se lo tienes que pasar por valor.
- No le indicas el número de bytes que tiene que leer (tu variable nada, que no está inicializada)
Debería ser así:
Código (vb) [Seleccionar]
leerarchivo = ReadFile(abrirarchivo, ByVal buffer, FileLen(ruta), bytesleidos, over)
o mejor aún:
Código (vb) [Seleccionar]
Dim BytesALeer as Long
BytesALeer = FileLen(ruta)
buffer = Space(BytesALeer)
leerarchivo = ReadFile(abrirarchivo, ByVal buffer, BytesALeer, bytesleidos, ByVal over)
Saludos.