Функция Command

Command

Функция Command применяется для запуска приложения с различными опциями с использованием командной строки

Функция возвращает параметры командной строки,указанные в строке запуска программы(в окне запуска программы или в окне свойств ярлыка в поле Объект

' Пример передачи аргументов командной строки в функцию,
' которая возвращает их в переменной типа Variant,
' содержащей массив
Function GetCommandLine(Optional MaxArgs)
  ' Объявляем переменные
 Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs
  ' Проверка наличия MaxArgs
 If IsMissing(MaxArgs) Then MaxArgs = 10
  ' Задание корректной размерности массива
 ReDim ArgArray(MaxArgs)
 NumArgs = 0: InArg = False
  ' Получаем аргументы командной строки
 CmdLine = Command()
 CmdLnLen = Len(CmdLine)
  ' Анализ всех символов командной строки
 For I = 1 To CmdLnLen
 C = Mid(CmdLine, I, 1)
  ' Проверка наличия пробела или табуляции
 If (C < > " " And C < > vbTab) Then
  ' пробел и табуляция не обнаружены
 ' Проверка наличия аргумента
 If Not InArg Then
  ' Начало нового аргумента
 ' Проверка количества аргументов
 If NumArgs = MaxArgs Then Exit For
 NumArgs = NumArgs + 1
 InArg = True
 End If
  ' Добавляем символ к текущему аргументу
 ArgArray(NumArgs) = ArgArray(NumArgs) & C
 Else
  ' Если найден символ пробела или табуляции,
 ' устанавливаем флаг InArg flag в False
 InArg = False
 End If
 Next I
 ' Меняем размер массива
 ReDim Preserve ArgArray(NumArgs)
 ' Возвращает массив в качестве имени функции
 GetCommandLine = ArgArray()
End Function