Compare textbox.text with file name!

[Zoticos]

I’m having a problem in regards to comparing a string variable with a filename.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
Here’s my sample.<o></o>
<o></o>
Textbox.text input is: “new york”<o></o>
My file name is: “C:\DATA\Location – New York.bmp”<o></o>
<o></o>
How can I read the filename as a string, and then compare the Textbox.text string with the filename?<o></o>
<o></o>
The compare needs to ignore the case and see if “new york” exist in the filename else exit sub.<o></o>
<o></o>
Thanks for any help!<o></o>

 

[alan.m]

Hi Zoticos,
the solution may be different depending of the version of Excel, but
try this code

Sub compareFileName()
Dim FileName As String
Dim MyFol As String
Dim f As String
    FileName = UCase(InputBox("Enter the file name"))
    
    Rem Change C:\data\ to your folder path
    MyFol = "C:\data\"
    f = Dir(MyFol, 7) 'look for files in D of type Read Only, Hidden and System
    Do While f <> ""
        f = UCase(f)
        If f Like "*" & FileName & "*" Then
            MsgBox ("hit on " & FileName)
        End If
        f = Dir
    Loop
End Sub

HTH