Leer Datos Binarios

[David Vans]

Hola queria saber como puedo ler los datas de un archvo binario a si mismo o si no copairlo asi mimso y abrir la copia y guradar en un varible los datos binarios,
mi problema es asceso denegado ya que se encuntra en ejcucion porque es  el mismo exe quein lo quere recoger

[~~]

Pues q raro.. yo uso esto:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Open App.Path & "\nombre.exe" For Binary As #1
Dim Todo As String
Todo = Space(LOF(1))
Get #1, , Todo
Close #1
MsgBox Todo
End Sub

siendo nombre.exe el nombre del archivo y me funciona..


Si prefieres copiarte usa el omando filecopy 

[David Vans]

Código [Seleccionar] Expandir

Open App.Path & App.EXEName & ".exe" For Binary As #1
Dim Todo As String
Todo = Space(LOF(1))
Get #1, , Todo
Close #1
MsgBox Todo
No me devuleve nada Todo =""
Estando el file abrito no te lee nada porque otro proceso esta usando el exe que es el mismo.
Y filecopy a veces me funciona y otras veces me da error 5 en timpod e ejecucion

[DrakoX]

te doy 2 posible soluciones,
cuando lo ejecutes primero procurra haber creado el exe y luego ejecutarlo,
si esto no funciona
cambia el space y pone,

Código [Seleccionar] Expandir

Input(LOF(1), 1)
habiendo creado el exe antes de ejecutarlo.

salu2 y suerte

[SheKeL_C$]

El problema es que lo estas depurando sin haberlo generado.. haz lo siguiente da a archivo -> generar.

Al menos tu problema me pasaba a mi así

[David Vans]

Mi idea es que el exe une varios ficheros exe entocnes cundo gunto varios ficheros necesito poner  el primero el propio exe que los junta y luego los otros en un mismo fihcero.exe

Enotnces cundo se ejcute el exe se va ejeceutar solo mi ejecutable.exe y va a mirar su tamañao y si es mayor de lo normal significa que el ficehro ya esta montado y su mision ser separa los ficheros y jecutarse entocnes se ejecuta de forma invisible en segundo plano y si se abre y el tamaño es el que tien que ser sin niguna union su mision sera añadir files me explico .
entocnes si hemos unido 20 mb luego el exe tendra que copiar los 20 mb en otro sitio y tarda mucho  me interesaria abrirlo de alguna forma y leer sus datos

Perdon por la ortografi tengo un poco de prisa
GRacias por vuestro tiempo

[David Vans]

El problema es que lo estas depurando sin haberlo generado.. haz lo siguiente da a archivo -> generar.

Al menos tu problema me pasaba a mi así

si claro eso lo he hehco lo ejecuto generado.exe cundo lo pruebo no lo ejecuto desde vb 6 ejecuto el exe que he generado

[DrakoX]

Primero que nada, tu code tiene mal la ruta del archivo,

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim Code As String
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
    Code = Input(LOF(1), 1)
Close #1
End Sub
cn este code, tendria q andar, y poder leer el archivo,
y para poder hacer tu code,
dale una ojeada al cactus joiner que de seguro te va a ayudar.

salu2 y suerte

[~~]

Te digo q asi tiene q funcionar xDD por q es como funciona cualkier joiner, y yo e hecho uno en VB y se lee a si mismo perfectamente...