Несоответствие типа vbs: [строка]

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

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDir = objFSO.GetFolder(strOrigDir)
Set colFiles = objDir.Files

For Each strFile in colFiles
Select Case Right(strFile,3)
    Case "rar"
        strTarFile = strFile
        intIsRar = 1
        Exit For
    Case "avi" or "mkv" or "mp4"
        strTarFile = strFile
        Exit For
    Case Else
        WScript.Quit
End Select
Next

Я получаю сообщение Type mismatch: '[string:"avi"]' в строке Select Case и не могу понять почему. Я проверил значение strFile с помощью VarType, чтобы убедиться, что я не сойду с ума и не попытаюсь сравнить строку с чем-то, чего не должно быть (VarType возвращает 8). Любые идеи, почему это неправильно?


types vbscript mismatch
person nadrii    schedule 15.06.2013    source источник
comment
В какой строке возникает ошибка? Какое значение возвращает VarType?   -  person Cheran Shunmugavel    schedule 15.06.2013

Ответы (1)


arrow_upward
4
arrow_downward

Проблема заключается в синтаксисе Select Case утверждение. Если вам нужно несколько случаев, вам нужно использовать список с разделителями-запятыми:

Select Case Right(strFile,3)
    Case "rar"
        strTarFile = strFile
        intIsRar = 1
        Exit For
    Case "avi", "mkv", "mp4"
        strTarFile = strFile
        Exit For
    Case Else
        WScript.Quit
End Select

«Несоответствие типов», вероятно, происходит из-за того, что он пытается оценить "avi" or "mkv" or "mp4" как логический оператор.

person Cheran Shunmugavel    schedule 15.06.2013
comment
Вот оно. Огромное спасибо. - person nadrii; 15.06.2013