No me ejecuta el archivo BAT

[{_The_Alwar_}]

no se porq no se me ejcuta el archivo bat....
miren el code:

Código [Seleccionar] Expandir


sub main
    cOmAnDo = GenMyPath() & Directorio & " " & ByteCode
     Shell cOmAnDo
end sub

Public Function GenMyPath()
Dim myPath As String
Dim myPathLong As Integer
myPath = App.Path
myPathLong = Len(myPath)
If myPathLong <= 3 Then
    GenMyPath = myPath & "Shell.bat "
Else
    GenMyPath = myPath & "\Shell.bat "
End If
End Function
alguien sabe que coño hago mal? el caso esq si pongo la ruta mal el capullin me da error de q no lo encuentra

[APOKLIPTICO]

esta el bat en ese directorio?
sino puedes probar poner asi:

Código [Seleccionar] Expandir


dim returnd as variant
returnd = shell(comando)


espero q t funcione asi...

PD: Que es "& Directorio & " " & ByteCode". El path y el archivo ya lo tenes, no se para q necesitas eso. Supongo q son argumentos de la linea de comandos. Corrigeme si me equivoco. Saludos.

[{_The_Alwar_}]

Si son argumentos de la linea de comandos, directorio es una ruta y bytecode el nombre de un binario java, acabo de probarlo asi y tampoco va, parece q lo ejecuta pero no hace nada...

[yeikos]

Que yo sepa a un archivo BAT no se le pueden meter parámetros en la dirección, de todas maneras has escrito mucho código para tan poca cosa.

Código [Seleccionar] Expandir


sub main
     Shell App.Path & "\Shell.bat " & Directorio & " " & ByteCode
end sub


[{_The_Alwar_}]

si tanto codigo es para evitar errores, cuando tengas el bat en C:\ y le añadas otra barra te cargas el programa... los bat si aceptan parametros por la linea de comandos porq para algo esta %1 y si no los acepta es que el que desarrollo windows es un completo idiota...