поиск папки и открытая папка

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 

я не уверен, куда идти от этого, кроме добавить джокера в EXIST так как:

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

Пожалуйста, помогите я так растерялся ...

Answer 1

Вы хотите использовать System.IO.Directory.GetDirectories(rootPath, wildcardPattern) и посмотреть, содержит ли возвращенный массив больше нуля.