VICENTE
02 de Febrero del 2006

me gustaria saber como se pueden pasar parametros a un programa y como recogerlos desde el codigo

c:\>programa.exe usuario contraseña

como coger el usuario y la contraseña desde el codigo

Rosa
02 de Febrero del 2006

Tienes que usar la función Command, aquí hay un ejemplo:

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