Mensajes

Gracias, ya lo solucioné, al final lo que hice fue dividir el archivo original en varios de menor tamaño.

Gracias por la yuda qu eme has prestado, lo he ido comprendiendo cada vez mejor.

Según la MSDN no puedo abrir archivos superiores a 32.000 bytes, ¿habría alguna forma de enfocarlo de otro modo para que lo leyera? Es que he visto gente que trabaja con archivos mucho más pesados pero no sé cómo lo hacen.

Ok, lo buscaré, pero podrías ponerme un código de ejemplo? es que si no fijo que no doy con la tecla.

Ok, ahora el problema que tengo es que no me copia en la posición que yo quiero del archivo, o necesito que llega hasta la posición 7C0020 que ne decimal sería 130023936, pero cuando pongo el que escriba ahí no escribe nada, sin embargo si l edoy algún valor más bajo, que sé yo 400000 lo escribe sin problema, así que debe ser una limitación de la sentencia put, vamos digo yo.

Ejemplo:

Private Sub Command1_Click()
   
     
   On Error GoTo error_Sub
     
   
       'Array que contendrá los bytes del archivo es decir los datos
       Dim Data As Byte
     
       'Variable Para el tamaño del archivo ( luego se usa para el Redim )
       Dim fLen As Long
     
       'Abrimos el archivo en modo binario de solo lectura (Binary Lock Read)
       Open "C:\Users\Moisés\Desktop\prueba\archivo1.bin" For Binary Lock Read As 1
     
       'creamos un archivo para guardar los datos ( Binary Access Write )
       Open "C:\Users\Moisés\Desktop\prueba\archivo2.bin" For Binary Access Write As 2
     
       'Redimiensionamos el array al tamaño del archivo
       fLen = FileLen("C:\Users\Moisés\Desktop\prueba\archivo1.bin")
     
       ReDim Data(fLen) As Byte
       'Leemos el archivo entero y lo almacenamos en el array
       Get #1, , Data
     
       'Escribimos los bytes del array anterior, en el nuevo archivo ( archivo 2 )
       Put #2, 130023936, Data
     
       'Cerramos los dos archivos
       Close
         
       
       MsgBox "archivo copiado", vbInformation
     
   Exit Sub
     
error_Sub:
   MsgBox Err.Description, vbCritical
     
 
End Sub



Alguna idea?

Ok, voy a echarle un vistazo gracias.

Ya lo ví y ya dí con la tecla, ahora el mproblema es que no puedo escribir en el archivo el byte null, es decir 00, en ASCII sería simplemnte con punto, pero no me lo pasa bien a hexadceimal.

Alguna idea?

Simplemente para hacer más completa la aplicación que estoy realizando y así no tener que recurrir a programas externos.

Buenas a todos, necesitaría crear un editor hexadecimal muy básico, no sé si este lenguaje será el mejor, pero es del único qu etengo conocimientos. El caso es que tengo que abrir un archivo de 250 mb y escribir siempre lo mismo, unos 10 mb de línea.

Estuve buscando por internet y encontré ejemplos pero no me dejan copiar y pegar, sólo modificarlo por pulsaciones y con SENDKEYS me tarda unos 30 o 40 minutos de reloj, cuando con un editor hexadecimal normal se copia y se pega en un instante.

Estoy perdido en este asunto, podría alguien hecharme una mano?

Gracias