Función Command

Devuelve la parte del argumento de la línea de comandos usada para iniciar Microsoft Visual Basic o un programa ejecutable desarrollado con Visual Basic. La función Comando de Visual Basic está disponible en Microsoft Access, pero no en otras aplicaciones de Microsoft Office.

Sintaxis

Command

Comentarios

Cuando se inicia Visual Basic desde la línea de comandos, cualquier parte de la línea de comandos que sigue /cmd se pasa al programa como argumento de la línea de comandos. En el siguiente ejemplo de línea de comandos, cmdlineargs representa la información de argumento devuelta por la función Command .

VB /cmd cmdlineargs

Para aplicaciones desarrolladas con Visual Basic y compiladas en un archivo .exe, Command devuelve los argumentos que aparecen después del nombre de la aplicación en la línea de comandos. Por ejemplo:

MyApp cmdlineargs

Para averiguar cómo se pueden cambiar los argumentos de línea de comandos en la interfaz de usuario de la aplicación que usa, busque "argumentos de línea de comandos" en la Ayuda.

Ejemplo:

Este ejemplo usa la función Command para obtener los argumentos de la línea de comandos en una función que los devuelve en una Variant que contiene una matriz. Disponible en Microsoft Access, pero no en otras aplicaciones de Microsoft Office.

Function GetCommandLine(Optional MaxArgs)
    'Declare variables.
    Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs
    'See if MaxArgs was provided.
    If IsMissing(MaxArgs) Then MaxArgs = 10
    'Make array of the correct size.
    ReDim ArgArray(MaxArgs)
    NumArgs = 0: InArg = False
    'Get command line arguments.
    CmdLine = Command()
    CmdLnLen = Len(CmdLine)
    'Go thru command line one character
    'at a time.
    For I = 1 To CmdLnLen
        C = Mid(CmdLine, I, 1)
        'Test for space or tab.
        If (C <> " " And C <> vbTab) Then
            'Neither space nor tab.
            'Test if already in argument.
            If Not InArg Then
            'New argument begins.
            'Test for too many arguments.
                If NumArgs = MaxArgs Then Exit For
                NumArgs = NumArgs + 1
                InArg = True
            End If
            'Concatenate character to current argument.
            ArgArray(NumArgs) = ArgArray(NumArgs) & C
        Else
            'Found a space or tab.
            'Set InArg flag to False.
            InArg = False
        End If
    Next I
    'Resize array just enough to hold arguments.
    ReDim Preserve ArgArray(NumArgs)
    'Return Array in Function name.
    GetCommandLine = ArgArray()
End Function

Vea también

• Funciones (Visual Basic para Aplicaciones)

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.