在下面的代码部分,我有一个名为FolderPick的函数,它通过一个对话框返回选定文件夹的文件路径。然后,我将文件夹路径向下剥离以找到所选文件夹的名称。所有的工作都按预期进行。
我想要做的是验证所选文件夹的名称是否为批准的名称之一。我最初考虑使用一系列的IF语句,然后我考虑使用case语句。所以我非常确定我的case的语法是错误的,并且每个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
发布于 2019-05-28 02:18:05
试试这个,你可以用",“代替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
https://stackoverflow.com/questions/56330564
复制相似问题