Invalid procedure call argument

[plans]

Hello,

I am running this script:

 strFile = Dir(MyPath & "\*")
    Do While Len(strFile) > 0
        Debug.Print strFile     
        
        '--------------Check for MATCH in folder-----------------------------------------------
        
        If Len(Dir(FoldercPath & strFile)) = 0 Then
            MsgBox " False"
        Else
            MsgBox " Match"
        End If
                
        '---------------END Check for MATCH in folder----------------------------------------------
      
        strFile = Dir        
 Loop

After the first round in the loop, I am getting a Run Time Error '5' - Invalid procedure., however, if I remove the "IF" procedure, the script runs through.


What is wrong here? Could you please advise?
Thanks

[davesexcel]

Maybe test first if the wildcard is the issue

[Fluff13]

You cannot use Dir inside the loop, otherwise you destroy the stack, from the first Dir.
To check if the file exists in a different folder use file system objects.
https://analystcave.com/vba-filesyst...ba-fileexists/