RE:PAso de parametros a un programa VB
Hola.
MSDN Library Visual Studio 6.0
Busca por la función Command.
Si no la tienes te copio lo que dice:
Devuelve la parte delargumento de lalínea de comando utililizada para ejecutar Microsoft Visual Basic o un programa ejecutable desarrollado con Visual Basic.
Sintaxis
Command
Comentarios
Cuando Visual Basic es ejecutado desde la línea de comando, una parte de la línea de comando que sigue a /cmd es pasada al programa como el argumento de la línea de comando. En el siguiente ejemplo, argslíneacomando representa la información del argumento devuelto por la función Command.
VB /cmd argslíneacomando
Para aplicaciones desarrolladas con Visual Basic y compiladas para obtener un archivo .exe, Command devuelve unos argumentos que aparecen después del nombre de la aplicación en la línea de comandos. Por ejemplo:
MiApl argslíneacomando
Para encontrar cómo los argumentos de la línea de comando pueden ser cambiados en la interfaz de usuario de la aplicación que está utilizando, busque el la Ayuda "argumentos de la línea de comandos."
Ejemplo de la función Command
Este ejemplo utiliza la función Command para obtener los argumentos de la línea de comandos en una función que los devuelva en una matriz contenedora Variant.
Function ObtenerLíneaComando(Optional MaxArgs)
'Declara las variables.
Dim C, LíneaComando, LonLínComando, ArgIn, I, NúmArgs
'Ver si MaxArgs está.
If IsMissing(MaxArgs) Then MaxArgs = 10
'Crea una matriz del tamaño correcto.
ReDim ArgArray(MaxArgs)
NúmArgs = 0: ArgIn = False
'Obtiene los argumentos de la línea de comandos.
LíneaComando = Command()
LonLínComando = Len(LíneaComando)
'Recorre la línea de comando carácter a carácter
'a la vez.
For I = 1 To LonLínComando
C = Mid(LínComando, I, 1)
'Comprueba espacio o tabulación.
If (C <> " " And C <> vbTab) Then
'Ningún espacio o tabulación.
'Comprueba si está en el argumento.
If Not ArgIn Then
'Empieza el nuevo argumento.
'Comprueba para más argumentos.
If NúmArgs = MaxArgs Then Exit For
NúmArgs = NúmArgs + 1
ArgIn = True
End If
'Concatenar el carácter al argumento actual.
ArgArray(NúmArgs) = ArgArray(NúmArgs) & C
Else
'Encontró un espacio o tabulador.
'Establece ArgIn a False.
ArgIn = False
End If
Next I
'Redimensiona la matriz lo suficiente para contener los argumentos.
ReDim Preserve ArgArray(NúmArgs)
'Devuelve la matriz en nombre de la función.
ObtenerLíneaComando = ArgArray()
End Function
Saludos.