Что нового

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

Rouzenrot

Новичок
Сообщения
30
Репутация
0
Доброго времени суток!
Есть такая задачка, брать из определенной папки файлы, и раскидывать их в папки по иерархической структуре год/месяц/день. Если нет папки с месяцем - то создавать. И вот папку с именем года-то я сделал
Код:
DirCreate('D:\' & @YEAR)

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

Rouzenrot

Новичок
Сообщения
30
Репутация
0
Сам спросил, сам ответил :smile:
Код:
DirCreate('D:\' & @YEAR & '\'  & @MON & '\' & @MDAY)
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
Код:
Dim $aMONs[13] = ["12", "Январь", "Февраль", "Март", "Апрель", "Май", "Июнь", "Июль", "Август", "Сентябрь", "Октябрь", "Ноябрь", "Декабрь"]

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