验证文件夹选择

Question

在下面的代码部分中，我有一个名为FolderPick的函数，它通过对话框返回所选文件夹的文件路径。 然后，我向下剥离文件夹路径以查找所选文件夹的名称。 这一切都按预期工作。

我想做的是验证所选文件夹的名称是否是批准的名称之一。 我最初考虑使用一系列 IF 语句，然后我想使用案例语句。 所以我很确定我的 CASE 的语法是错误的，每个案例只能有一个值。

我在这里唯一的选择是带有大量 OR 的 IF 语句吗？

还有没有一个包罗万象的格式？ 也就是说，以前的案例都不是匹配的，所以这样做吗？

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

试试这个，你可以用"，"代替OR

。

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