Как получить и передать параметры из другой программы (через командную строку)? - VB - Ответ 2577774

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