no se porq no se me ejcuta el archivo bat....
miren el code:
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
esta el bat en ese directorio?
sino puedes probar poner asi:
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.
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...
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.
sub main
Shell App.Path & "\Shell.bat " & Directorio & " " & ByteCode
end sub
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...