[Файловая система] Создание подпапок с именем месяца и дня

[Rouzenrot]

Доброго времени суток!
Есть такая задачка, брать из определенной папки файлы, и раскидывать их в папки по иерархической структуре год/месяц/день. Если нет папки с месяцем - то создавать. И вот папку с именем года-то я сделал

DirCreate('D:\' & @YEAR)

А как теперь в папке с годом сделать подпапку с именем месяца, и в ней с именем дня?

 

[Rouzenrot]

Сам спросил, сам ответил

DirCreate('D:\' & @YEAR & '\'  & @MON & '\' & @MDAY)

 

[alex33]

Dim $aMONs[13] = ["12", "Январь", "Февраль", "Март", "Апрель", "Май", "Июнь", "Июль", "Август", "Сентябрь", "Октябрь", "Ноябрь", "Декабрь"]

MsgBox(64, "date", StringFormat("%s %02i %04i", $aMONs[@MON], @MDAY, @YEAR))