搜索文件夾通配符並打開文件夾

Question

我在嘗試在目錄中使用通配符搜索文件夾時遇到問題。

文件夾看起來有點像這樣：[2008] [560909] [市場變化]或[年] [數字] [名]

到目前爲止，這是我有：

Function searching() 

Dim choice, input 
Dim strPatheServices 

strPatheServices = "s:\dirr\subdirr\" 
ending = true 

choice = InputBox("Please choose: c for number, y for year created, n for name") 

If choice = "c" Then 
    MsgBox ("You entered: " & choice) 
    input = InputBox("Please input a number:") 
    System.IO.Directory.Exists(strPatheServices\input) 

ElseIf choice = "y" Then 
    MsgBox ("You entered: " & choice) 
    input = InputBox("Please input a year:") 
    System.IO.Directory.Exists(strPatheServices\input) 

ElseIf choice = "n" Then 
    MsgBox ("You entered: " & choice) 
    input = InputBox("Please input a number:") 
    System.IO.Directory.Exists(strPatheServices\input) 
End If 

MsgBox "Done",,"Completed" 

End Function 

我不清楚從哪裏該走其他比野生卡添加到存在，所以這樣的：

System.IO.Directory.Exists(strPatheServices\input + "*") 

請幫助我很迷茫......

Answer 1

您將需要使用System.IO.Directory.GetDirectories(rootPath, wildcardPattern)並查看返回的數組是否包含多個零元素。