loop in dir with certain number of file

[sal21]

I have a dir with .xls file.
Before to go to the next part of code i need to bee sure if in dir are present 5 files.
Without this condition exit sub.

Code: Select all

 Do While Len(File)
        If InStr(File, "Report_cc_Inattivi_"& my_var) > 0 Then
            X = X + 1           
        End If
        File = Dir$
    Loop

actually i test with X<5 then... wath you think about?

[HansV]

That should work.