我不确定这个论坛是否适用于VB脚本，或者是否有人在这里使用它 ；本人'；我希望如此，因为这是我'；我要发帖了
因此，我有一个工作目录（W:\ACAD Jobs\2011 Projects\…），其中列出了几家设计公司（子文件夹）
我有同一家设计公司的几个子文件夹，但位置不同 ；例如：（为了禁运，我将保持这些名字的真实性） ；W： \ACAD Jobs\2011项目\设计公司-阿拉巴马州 ；W： \ACAD Jobs\2011项目\设计公司-华盛顿 ；W： \ACAD Jobs\2011 Projects\Design Firm-亚利桑那州我想搜索名称；设计公司；并为变量指定全名，以便于显示 ；所以，我需要搜索；设计公司；并拥有Var_商店；阿拉巴马州设计公司；，Var_B存储；华盛顿设计公司；，和Var_C store“；设计公司-亚利桑那州
根据我信任的O&039；reilly Pocket reference，我应该能够使用开关搜索句子中的单词（如果愿意，可以使用通配符）
谁能告诉我这是什么意思吗
还有，如果我搜索；设计公司；，我该如何切换以查找任何异常文件夹，例如；设计公司-亚利桑那州
此处'；这是我目前拥有的一段代码（可能我看错了。如果是，请告知）：
- cTitle = "Test run"
- Set FSO = CreateObject("Scripting.FileSystemObject")
- str2011dir = "W:\ACAD JOBS\2011 Projects"
- strDF = InputBox("Design Firm Name: ", cTitle, "Design Firm")
- strDFm = "\b " & strDF [color=maroon]' Normally, the switch would go to the front of the string right?[/color]
- MsgBox "Input is -" & strDfm,, cTitle [color=maroon]' This is here to show me what the string consists of.[/color]
- If FSO.FolderExists(str2011dir & strDFm) Then
- MsgBox "The folder " & UCase(strDF) & " exists.",, cTitle
- Else
- MsgBox "No folder found",, cTitle
- End If
编辑：；根据MS<；http://msdn.microsoft.com/en-us/library/ms974570.aspx>
所以我的代码 - strDF = InputBox("Design Firm Name: ", cTitle, "Design Firm")
- strDFm = strDF & "\b"
- MsgBox "Input is -" & strDfm,, cTitle
消息框应显示；设计公司；因此，我的搜索应该是找到任何带有；“公司”；正确吗 ；但它不是'；t 。
| 
置顶卡
