VBA excel 2010 script not working

[Fyr]

I know some stuff no longer works in newer versions of excel.
I'm having trouble trying to figure out how to get this script to work again.

This script opens all .xls files in a specified directory.

Sub new2010find()
    'MyDir = ActiveWorkbook.Path ' current path"
    strPath = mydir & "P:\CPD\Stats\data" ' files subdir
    With Application.FileSearch
         .NewSearch
        .LookIn = strPath
        .SearchSubFolders = False
        .Filename = ".xls"
        If .Execute > 0 Then
            For Each vaFileName In .FoundFiles
                ProgressBar1.Value = cas
                Workbooks.Open vaFileName, , True
                cas = cas + 1
            Next
        End If
    End With
 
End Sub

Any ideas how to modify it so it works again?
Thanks for taking a look!

 

[Fyr]

Just bumping

 

[VoG]

Try

Sub new2010find()
    'MyDir = ActiveWorkbook.Path ' current path"
    strpath = "P:\CPD\Stats\data\*.xls" ' files subdir
    myfile = Dir(strpath)
    Do While myfile <> ""
        Workbooks.Open Filename:=myfile
        myfile = Dir
    Loop
End Sub

 

[Fyr]

Thanks VoG, this worked, kind of.

I had to declare strpath and myfile:

Sub new2010find()
Dim myfile As String
Dim strpath As String
    'MyDir = ActiveWorkbook.Path ' current path"
    strpath = "P:\CPD\Stats\data\*.xls" ' files subdir
    myfile = Dir(strpath)
    Do While myfile <> ""
        Workbooks.Open Filename:=myfile
        myfile = Dir
    Loop
End Sub

There is a slight problem, the directory path contains 8 .xls files, the sciprt opens the first file, but then stops because the second file could not be found.
Did I do something wrong with declaring?

 

[VoG]

Perhaps like this

Sub new2010find()
Dim myfile As String
Dim strpath As String
    'MyDir = ActiveWorkbook.Path ' current path"
    strpath = "P:\CPD\Stats\data\" ' files subdir
    myfile = Dir(strpath & "*.xls")
    Do While myfile <> ""
        Workbooks.Open Filename:=strpath & myfile
        myfile = Dir
    Loop
End Sub

 

[Fyr]

Thank you VoG!
Thank did the trick!!