【マクロ】特定の文字のあるファイルを削除したいが型が違うというエラーが起きる

Question

マクロで特定の文字のあるファイルを削除したいのですが、
「For Each file In files」
の箇所で型が一致しませんというエラーが出てきてしまいます。
どのように修正すればいいかご教授願えないでしょうか
よろしくお願いいたします

---

Sub 削除()
Dim path, fso, file, files

'ファイル格納フォルダ
strFolder = Range("B1") & "\"    'フォルダーの場所

Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.GetFolder(Range("B1").Value)

    'フォルダ内の全ファイルをループ
    
    For Each file In files

        '文字指定
        If InStr(file.Name, "議事録") >= 1 Then

            'ファイルを消す
            file.Delete

        End If
    Next file

End Sub

Answer 1

試していないですが、恐らく下記の誤りかと思います。

誤）Set file = fso.GetFolder(Range("B1").Value)
正）Set files = fso.GetFolder(Range("B1").Value).Files

＜参考＞
■ フォルダ内に存在する全「.xlsx」ファイルのベース名を取得する
http://officetanaka.net/excel/vba/filesystemobject/sample07.htm

Comments

[lay.]

ありがとうございます
ご指摘内容で修正ができました！