vba

    With Application.FileSearch
            .NewSearch
            .LookIn = dpath
            .Filename = "*.csv"
            .Execute

            For m = 1 To .FoundFiles.Count
                Fname = .FoundFiles(m)
               Set wb = GetObject(Fname)
            Next m
    End With