FolderExistsではワイルドカードが使用できない為 ワイルドカードが動作する別のコードに置き換えたい。

Question

前提・実現したいこと

TextBox1に入力した文字を部分一致でフォルダ検索し処理するコードにて
FolderExistsではワイルドカードが使用できない為
ワイルドカードが動作する別のコードに置き換えたい。

発生している問題・エラーメッセージ

    Set root_dirs = fso.GetFolder(root_dir).Files　と記述している部分でパスが通らない

該当のソースコード

Private Sub CommandButton1_Click()

' フォルダのパス
    Const WF As String = "C:\Users\aaa\Desktop\"
    root_dir = WF & "*" & TextBox1 & "*"
    
    If Dir(root_dir) <> "" Then
      
    Sheets(2).Cells.Clear
    For Each Pic In Sheets(2).Shapes
    Pic.Delete
    Next
    
    For Each Pic In Worksheets(1).Shapes
        If Pic.Type = msoPicture Then Pic.Delete
    Next
    
    For Each Pic In Worksheets(2).Shapes
        If Pic.Type = msoPicture Then Pic.Delete
    Next
    
    Set root_dirs = fso.GetFolder(root_dir).Files
    y = 1
    For Each root_dir In root_dirs
        ' フォルダについて処理
        y = importImagesFromOneRootDir(root_dir, y)
    Next
    
    ' １列目の幅を自動調整
    Rows(1).EntireColumn.AutoFit
    
    
    MsgBox "完了"
       
    Else
        MsgBox "該当工番のフォルダは存在しません"
    End If
    
    Set fso = Nothing

End Sub

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[m.ts10806]

ここまで書いててなぜその後「コードください」になったのかわかりません

[退会済みユーザー]

自分なりにコピペで組み合わせだのですが
一週間ほど粘りましたが無理でした…
すみません。
dirに置き換えると

Set root_dirs = fso.GetFolder(root_dir)
でパスが通らなくなりました。

[m.ts10806]

「置きかえる」やり方に寄ります。質問を編集し、現状を質問本文に追記してください。
そして、可能なら回答側にコメントを。
というかDirにするとそのまま利用するメソッドを書き換えるだけにはならないです。

[退会済みユーザー]

書き直しました。

[退会済みユーザー]

自己解決しました。

Answer 1

folder_name = "" & TextBox1 & ""

WFna = Dir(WF & folder_name & ".xlsx")

If Dir(WF & "" & TextBox1 & "" & ".xlsx") <> "" Then

にすることで自己解決できました。

Answer 2

Dir()で良いのでは。

引数pathnameにはワイルドカードを使用できます。

あとは「TextBox1」にどういう情報が入れられるか次第。

Comments

[退会済みユーザー]

folder_name = "*" & TextBox1 & "*"

WFna = Dir(WF & folder_name & ".xlsx")

If Dir(WF & "*" & TextBox1 & "*" & ".xlsx") <> "" Then

にすることで自己解決できました。

[m.ts10806]

私の回答をベストアンサーにし私の回答を元に解決しておいて「自己解決」と言えるのでしょうか。
「自己解決」としたいのでしたら自身で回答し、自分の回答をベストアンサーと選ぶことです。
ちょっとした言葉の選び方が角を立てます。厚意で成り立ってる場では尚更ですね。

[退会済みユーザー]

そうですね

[退会済みユーザー]

dirを使わなければいけないのはわかっていたので自己解決とします！

[m.ts10806]

>dirを使わなければいけないのはわかっていたので

最初のコードになかった時点でそれは誰にも伝わっていませんし、伝わっているなら私はこの回答をしていません
編集履歴で分かります。
申し訳ないですが、「回答者から得た情報で自己解決にしてしまった（自分で見つけたように振る舞った）」として、回答に低評価してます。