Проверка выбора папки

Question

В части кода ниже у меня есть функция FolderPick, которая возвращает путь к файлу выбранной папки через диалоговое окно. Затем я сокращаю путь к папке, чтобы найти имя выбранной выбранной папки. Это все работает как задумано.

Что я хотел бы сделать, это убедиться, что имя выбранной папки является одним из утвержденных имен. Сначала я думал об использовании серии утверждений IF, затем подумал об использовании оператора case. Поэтому я почти уверен, что синтаксис моих CASE неверен, и что вы можете иметь только одно значение для каждого случая.

Является ли мой единственный выбор здесь оператором IF с большим количеством OR?

Также существует ли формат для отлова всех CASE? ни в одном из предыдущих случаев не было совпадений, так что же делать?

Pickafolder:

FolderPath = FolderPick

Foldername = Left(FolderPath, Len(FolderPath) - 1)
Foldername = RIght(Foldername, Len(Foldername) - InStrRev(Foldername, "\"))

Select Case Foldername
    Case Foldername = "OPSS" Or Foldername = "SSP" Or Foldername = "OPSD" Or Foldername = "MTOD" Or Foldername = "SSD"

        'do something

    Case Foldername = "West" Or Foldername = "Eastern" Or Foldername = "Northeastern" Or Foldername = "Northwestern" Or Foldername = "Head Office"

        'inser "NSP\ before foldername

    Case Foldername = "NSP"

        'msgbox "Pick the  NSP sub folder"
        GoTo Pickafolder

    Case Foldername <> any other case

        'msgbox "Inappropriate directory to upload from. Please select one of the CPS download directories"
        GoTo Pickafolder

 End Select

Answer 1

Попробуйте, вы можете использовать "," вместо ИЛИ

Select Case FolderName
    Case "OPSS", "SSP", "Something", "MTOD", "SSD"

        'do something


    Case "West", "Eastern", "Northeastern", "Northwestern", "Head Office"

        'inser "NSP\ before foldername

    Case "NSP"

        'msgbox "Pick the  NSP sub folder"
        'GoTo Pickafolder

    Case Else

        'msgbox "Inappropriate directory to upload from. Please select one of the CPS download directories"
        'GoTo Pickafolder

 End Select