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:
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 :xD
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
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,
Input(LOF(1), 1)
habiendo creado el exe antes de ejecutarlo.
salu2 y suerte
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í
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
CitarEl 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
Primero que nada, tu code tiene mal la ruta del archivo,
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...