- 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
o mejor aún:
leerarchivo = ReadFile(abrirarchivo, ByVal buffer, FileLen(ruta), bytesleidos, over)
Código
Dim BytesALeer as Long BytesALeer = FileLen(ruta) buffer = Space(BytesALeer) leerarchivo = ReadFile(abrirarchivo, ByVal buffer, BytesALeer, bytesleidos, ByVal over)
Saludos.