Set objFS = CreateObject("Scripting.FileSystemObject")
objFS.CreateFolder("DirPath")YearNow = Year(Now)
MonthNow = Right("0" & Month(Now), 2)
DayNow = Right("0" & Day(Now), 2)
HourNow = Right("0" & Hour(Now), 2)
MinuteNow = Right("0" & Minute(Now), 2)
SecondNow = Right("0" & Second(Now), 2)
DateTime = YearNow & MonthNow & DayNow & HourNow & MinuteNow & SecondNow