problema con archivos

cristian
01 de Abril del 2004
tengo el siguiente codigo para traspasar de un archi a otro el contenido, pero el get me devuelve solo valores en blanco, siendo que esta lleno de registros
alguien me puede ayudar
Open ARCHIVO For Binary As #cuenta
Open biblioteca For Append As cuenta + 1
For x = largo To 1 Step -1
Get #cuenta, x, linea
Print #cuenta + 1, linea
Next x
Close #cuenta + 1
Close #cuenta
End Sub