This one is a little better, because it's called the same way every time, and it's not necessary to set the local dictionary to nothing, since it's passed as a parameter.
But, i don't get to Set oFSO = Nothing
Function Get_Files2(ByVal sDir As String, dFiles As Dictionary, Optional oFSO As...