Работа с Excel и Thunderbird - VBA
Формулировка задачи:
Есть код, который отправляет конкретный файл, конкретному человеку (или нескольким)
Как сделать так, чтоб отправлялось больше 1 файла и увеличить длину переменной "stroka".
Решение задачи: «Работа с Excel и Thunderbird»
textual
Листинг программы
'Определение максимального количества аргументов методом эксперимента (подбор половинным делением)
option explicit
Const CriticalMAX = 10000
dim Home, oStream, Str, nCheck, curMAX, curMIN, nOK
Home = WScript.ScriptFullName
Home = left(Home, instrrev(Home, "\") - 1)
nCheck = CriticalMAX
curMAX = CriticalMAX
curMIN = 0
Do
set oStream = Createobject("WScript.Shell").Exec(Home & "\MaxArgTest.cmd" & replace(string(nCheck, "A"), "A", " A"))
Str = oStream.StdOut.ReadAll()
set oStream = Nothing
if len(Str) - (nCheck - 1) - 2 <> nCheck Then ' - (nCheck - 1) ' кол-во пробелов между аргументами ' - 2 'CrLf
curMAX = nCheck - 1
else
nOK = nCheck
curMIN = nCheck + 1
end if
nCheck = (curMAX - curMIN) \ 2 + curMIN
msgbox "MIN = " & cstr(curMIN) & " " & "MAX = " & cstr(curMAX) & " " & "Len of String = " & cstr(len(Str)) & _
vbcrlf & "Now Checking " & cstr(nCheck)
Loop until curMIN >= curMAX
msgbox "MAX possible is " & cstr(nOK)