if(chk1()&&chk2()...)mainProc(arg1,arg2,...)

Rom5
Вероятно, речь именно об этом, но лучше пусть выскажутся знатоки Basic'а. А то я тут уже отметился

YMP пишет:

Эти-то есть вроде. Нету & и |.

Хммм. Имеется в виду побитовые И/ИЛИ ?

Да, они. Видимо, в VBS логические от побитовых отличаются как-то по контексту. Или ХЗ.

var oFSO=WScript.CreateObject('Scripting.FileSystemObject');
try {
    with (oFSO.OpenTextFile('c:\\boot.ini')) {
        var sContent=ReadAll();
        Close();
    }
} catch (e) {
    var sContent='';
} finally {
    WScript.Echo('['+sContent+']');
}

и громадьём кода в:

Option Explicit

Dim objFSO
Dim objTS
Dim strContent

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

On Error Resume Next
Set objTS = objFSO.OpenTextFile("c:\boot.ini")

If Err.Number = 0 Then
    On Error Goto 0
    strContent = objts.ReadAll()
    objTS.Close
Else
    Err.Clear
    On Error Goto 0
    strContent = ""
End If

WScript.Echo "[" & strContent & "]"

WScript.Quit 0

....
то для первого параметра я бы сразу проверил доступность файла/ов в обёртке try, а в catch вернул бы то, что покажет остальному коду некорректность первого параметра...

Ну, пускай именно не полное подобие функционала обёртки try, но пробовать открыть файл на запись в VBS с временным отключением прерываний по ошибкам выполнения и проверкой наличия кода ошибки ведь можно ж.

msdn - On Error Statement
Или речь не об этом?

Эти-то есть вроде. Нету & и |.

оффтопа немножко

Хммм. Имеется в виду побитовые И/ИЛИ ?

Как я понимаю, в приведённом ниже фрагменте (vbs in hta) полученнное мною значение "intUAC" проверяется как раз наподобие js-ного "&" - см. конструкции "If (intUAC AND 2) OR (....."

'--- отключенность учетки'
intUAC=objRSet.Fields("userAccountControl")

'--- отображение отключенности у/з'
If intUAC AND 2 Then
    tLT_infoUsrAcc.innerHTML = tLT_infoUsrAcc.innerHTML & "This Account -- DISABLED !!!"
End If

'Вывод даты отключения, если учетка уже отключена либо эта дата - в прошлом или сегодняшняя, но не равна 01.01.1970 / 01.01.1601'
' // при проверке с текущей датой не учитываем разницу в 3 дня -- для отображения отключения в ближайшем будущем'
If (intUAC AND 2) OR ( ( CDate(Left(sDtAccExpire,10)) <= CDate(date() + 3) ) _
    AND ( CDate(Left(sDtAccExpire,10))<>CDate("01/01/1970") ) _
    AND ( CDate(Left(sDtAccExpire,10))<>CDate("01/01/1601") ) ) Then
    tLT_infoUsrAcc.innerHTML = tLT_infoUsrAcc.innerHTML & Left(sDtAccExpire,10)
End IF
    

Логические и побитовые операторы в Visual Basic

Ещё и && с || нет... Не понимаю...

Кто-то пытается при написании использовать кучу комментариев, кто-то делает маленькие блоки, кто-то изобретает свой метод может имеется свой гост по написанию программ если много условий. Мы пишем код, в случае бага, мы просто тратим N-ое количество времени и для нахождения бага и все опять работает, а ведь есть процессы при которых крайне нежелательно остановка какого либо скрипта из-за того, что произошел какой-то сбой или неправильно был указан параметр. Или если даже произошел сбой что б сохранилась информация какая-либо из-за чего произошел сбой.

Свои задачи я решил, используя свой собственный опыт проб и ошибок, и потерю кучу времени.

Здесь я привожу пример и привожу доводы почему у меня возник данный вопрос:

Использовал всевозможные задачи по обработке на файловом уровне. Ну например стоит задача выполнить какую-то операцию по обработке какого-то процесса.

В параметром файле есть 10 параметров, которые нельзя структурировать по какому-либо принципу:
1) параметр - каталог откуда файлики забираются
2) параметр - куда файлики поступают
3) параметр - программа при помощи которой производится проверка.
4) параметр - директория размещения протокола проверки
5) параметр - директория хранения протокола обработки для пользователя
6) параметр - директория хранения общего протокола по обработке по всем пользователям
7) параметр - директория возврата файлов в случае некорректной проверки программой
8) параметр - установка времени ожидания перед началом обработки
9) параметр - именование файлов
10) параметр -  создания директории со временем

Таким образом получается если будем строить обработку при помощи принципа многократного вложения if for else друг в друга как я уже писал в посте 3, IF откроется на 1й строке и закроется только на 1500 строке, а внутри него будет около 10 уровней вложенных условий который еще будут вложены друг в друга и зрительно будет очень сложно прослеживать эти вложенности что б не допустить ошибку в алгоритме.

Я использовал последовательный принцип проверки по условиям с маленькими блоками проверки введением 1й переменной, которая принимает единицу или нолик в зависимости корректно ли завершился блок или нет. ну например нужно считать все 10 параметров и проверить их перед использованием маленькими блоками:

        If NextCheck = 0 Then
            If Not objFSO.FolderExists(SortBufferMassiv(3,0)) Then
                call CreateFolderTree (SortBufferMassiv(3,0))
                if RetCode <> 0 Then
                    WScript.Echo "Путь указанный в конфигурационном файле для лога нет доступа к сетевому ресурсу "  
                    NextCheck = 1
                End If
            End If
        End If

1) Нужно считать первый параметр.
2) Проверить  корректно ли указан параметр. Например есть ли доступ к ресурсу.
3) Проверить есть ли возможность чтение удаление.
4) Проверить есть ли там файл
5) Проверить не занял ли данный файл

Ну и только потом производить обработку которая идет далее по алгоритму, иначе мы можем получить ошибку выполнения и остановку скрипта и не будет информации, что произошло на данном этапе обработки.

Вот и получается 1 параметр мы проверили  5-ю условиями, а у нас 10 параметров и получается будет очень много условий для проверки всех параметров перед использованием.

If условие Then 'Пояснение
      Код выполнения
Else 'Пояснение
      Код выполнения
End If

Дело не в маленьких или больших блоках.

При написании использую NotePade++ данная программа позволяет производить сворачивание кода и при сворачивании можно добавлять описания по каждому условию используя разные отступы

If условие Then
'Пояснение
      Код выполнения
Else
'Пояснение
      Код выполнения
End If
'Пояснение

т.к. использовали отступ для "Код выполнения", а для "Пояснения" не использовали отступ, то при сворачивании  условия IF и Else сразу все понятно. Тоже самое и для For.
После сворачивания:

If условие Then
'Пояснение
Else
'Пояснение
End If
'Пояснение

Но для себя я понял если IF становится больше 5 то данный код уже становится тяжело восприимчив и нужно использовать рекомендации Xameleon 1 и 4  + использовать маленькие блоки проверки каждого условия как я указывал "If NextCheck = 0 Then" пример в посте 16.

Такой код очень прост для понимания и не нужно особо глубоко в него вникать и дописывать что-то дополнительное очень просто. Хотя в данном случае возможно страдает производительность из-за дополнительного условия, но не факт не проверял.

Никакого другого метода для большого количества условий и циклов пока больше никто не предложил.

Rom5 пишет:

В завершающих операторах (End*, Next и т.п.) бывает дублирую условие из оператора сравнения - для наглядности.

Вы проставляете условие в виде комментария я правильно Вас понял?

Да. Например:

If fso.FileExists( "test.txt" )
    ' [...]'
    Do While not fspi.AtEndOfStream
        ' [...]'
        For i=1 To 10
            ' [...]'
            ' [...]'
        NEXT i
    Loop 'not fspi.AtEndOfStream
    If a>b Then
        ' [...]'
    Else 'a>b'
        ' [...]'
        If b>c Then
            ' [...]'
        End IF 'b>c'
    End IF 'a>b'
End IF 'fso.FileExists( "test.txt" )

т.е. и по самих завершающих операторах становится более менее понятно, что это был за цикл или условие. Конечно, это имеет смысл, если много вложенных условий/циклов с многострочным исполняющимся кодом.

Если функции действительно нужно возвращать несколько разноплановых значений, то, думаю, будет удобно использовать объект Словаря - Объект Dictionary.

Принявшему такой объект-результат коду будет удобно проверить и наличие установленніх ключей-результата и получение самих значений наглядно - по имени ключа.