验证文件夹选择

时间:2019-05-27 17:57:51

标签: excel vba

在下面的代码部分中,我有一个名为FolderPick的函数,该函数通过对话框返回所选文件夹的文件路径。然后,我将文件夹路径向下剥离,以找到所选选定文件夹的名称。一切都按预期进行。

如果要验证所选文件夹的名称是批准的名称之一,我该怎么办。我最初考虑使用一系列IF语句,然后考虑使用case语句。因此,我很确定CASE的语法错误,并且每种情况下只能有一个值。

我唯一的选择是带有很多OR的IF语句吗?

还有一种适用于所有情况的格式吗?即以前的情况都不是匹配的,是吗?

brew install cairo pango icu4c autoconf libffi libarchive
export PKG_CONFIG_PATH=\
$(brew --prefix)/lib/pkgconfig:\
$(brew --prefix)/opt/libarchive/lib/pkgconfig:\
$(brew --prefix)/opt/icu4c/lib/pkgconfig:\
$(brew --prefix)/opt/libffi/lib/pkgconfig
./configure

1 个答案:

答案 0 :(得分:4)

尝试一下,您可以使用“,”代替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