جستجو یک فایل بوسیله کدهای VBA

[iman2023]

با سلام.
من ميخام با استفاده از كد نويسي تو يه مسير خاص روي هارد مثلا c:\temp يه فايل خاص رو جستجو كنم و اگر وجود داشت پيغام بده كه فايل مورد نظر وجود داره.
مثلا تو مسير c:\temp من سه فايل iman1.txt و ali.txt و reza.txt رو دارم و ميخام با استفاده از كد نويسي مشخص كنم ايا فايلي وجود داره كه رشته iman جزئي از اسمشون باشه.
با تشكر.
لطفاً فوريه.

[h_arman]

از دستور زیر استفاده کن:

Dim strR As String
strR = Dir("C:\temp\*iman*.txt", vbNormal)
if strR <> "" then
.
.
.