Из одной папки в папку с текущей датой
Просто болею, совсем не воспринимаю то что в документации написано
Заранее благодарен

что никто не хочет помочь старому больному человеку?

в упрощенном виде - это так:
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder(Date())
fso.MoveFile "Folder\*.*", f.Path