use the oneliner:

Code:
sub M_snb()
  sn=split(createobject("wscript.shell").exec("cmd /c dir G:\OF\*.csv /b /o-d").readall,vbcrlf)
end sub
The resulting array sn has been sorted by filedatetime.