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