Использование данной функции позволяет передать через OpenArgs более одного аргумента
Public Function GetArgument(strArguments As String, _ intPosition As Integer) As String 'Возвращает аргумент с указанным номером из специальным образом 'сформатированной строки, например: ' '2~~Первый аргумент~~Второй аргумент~~Третий аргумент ' ' где: ' 2 - количество символов в разделителе ' ~~ - разделитель. ' SSY 09.02.2002 On Error Resume Next Dim intCounter As Integer Dim iCurrPos As Integer Dim strSeparator As String Dim strCurrArg As String
If strArguments = "" Then Exit Function iCurrPos = InStr(strArguments, strSeparator) If iCurrPos > 0 Then strCurrArg = Left(strArguments, iCurrPos - 1) strArguments = Mid(strArguments, iCurrPos + Len(strSeparator)) Else strCurrArg = strArguments strArguments = "" End If Next intCounter GetArgument = strCurrArg End Function