 Autor
|
Tema: Cargar archivo sin conocer el tamaño (Leído 2,093 veces)
|
|
Hendrix
|
Weno, en mi programa quiero juntar dos archivos (el que creo, y otro a elegir), pero el problema es que del archivo que quiero saber no se el tamaño, komo puedo hacer para abrir este archivo??? les pongo un ejemplo:
Dim tamaño As String
tamaño = Space(????)
Open "C:\archivo.exe" For binary As #1
Get #1, , tamaño
Close #1
Si conociera el tamaño me meteria todo el archivo en la variable tamaño, pero komo se puede hacer para calcular este tamaño???
Espero me hayan etendio...
Salu2
Hendrix
|
|
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián |
|
|
NYlOn
 Desconectado
Mensajes: 842
OOOOHHHHHH, TARAGÜIIII xDDDDDD
|
Dim tamaño As String
tamaño = Space(????)
Open "C:\archivo.exe" For binary As #1
Get #1, , tamaño
Close #1
Dim tamaño As String
Open "C:\archivo.exe" For binary As #1
tamaño = LOF(1) 'LOF = Long Of File, largo del archivo...
Get #1, , tamaño
Close #1
Espero que te sirva, saludos.-
|
|
|
|
|
En línea
|
|
|
|
|
Hendrix
|
Weno, en mi programa quiero juntar dos archivos (el que creo, y otro a elegir), pero el problema es que del archivo que quiero saber no se el tamaño, komo puedo hacer para abrir este archivo???
Eso ya lo se, lo que intento hacer es poner otro archivo en el que kreo (program, edito, kodeo  ) y luego poder sacarlo y volverlo a crear... Me expliko, para hacer un edit server, se introducen palabras al final del archivo, y luego el mismo programa las coge, lo que quiero hacer yo, en lugar de introducir palabras, es introducir un el kodigo haxadecimal de un archivo, para despues sacarlo y volverlo a componer.... yntente hacer esto: miprograma = Space (xxx) programa_adjuntado= Space (LOF(1) - xxx) pero no me funcionaba, me daba error en programa_adjuntado. Alguien me puede dar las solucion??? Salu2 Hendrix
|
|
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián |
|
|
NYlOn
Desconectado
Mensajes: 842
OOOOHHHHHH, TARAGÜIIII xDDDDDD
|
¿Y que decia el error?
|
|
|
|
|
En línea
|
|
|
|
|
Hendrix
|
No me da ningun error porke simplemente no lo se hacer... :- :-
Espero que puedan ayudarme a resolver este problema..
Salu2
Hendrix
|
|
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián |
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
Yo lo hice asi el blinder: Primero el programa guarda en un archivo los 2 archivos(el tuyo y el archivo a juntar) Despues al final de el archivo k as creado(k contien los 2 archivos) por en tamaño de el segundo archivo, como si fueran los datos de un troyano. Dim Tam as string * 15
tam = lenfile("2º archivo")
Con eso ya sabes donde empieza y donde acaba el segundo archivo. Dim Principio, Fin, Tam as string
Tam = Cargamos los 15 ultimos caracteres de el archivo resultante(donde emos guardado el tamaño de el 2º archivo)
Principio = lenfile("archivo resultante") - tam - 15
Fin = lenfile("archivo resultante") - 15
Salu2 |
|
|
|
|
En línea
|
|
|
|
|
Hendrix
|
Muchas gracias Kizar!!!! esto era justo lo que buskaba  yo tambien keria hacer un binder, pero por este problemo no lo kontinue, ahora lo podre kontinual trankilamente, Gracias Salu2 Hendrix |
|
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián |
|
|
|
 |
