Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim MyDate, NewFold, M1
'Папка только с текущей датой в названии
'MyDate = Year(date) & "-" & Right("0" & Month(date), 2) & "." & Right("0" & Day(date), 2)
'Папка с текущей датой и временем в названии
MyDate = Year(date) & "-" & Right("0" & Month(date), 2) & "." & Right("0" & Day(date), 2) & " " & Right("0" & Hour(now), 2) & "." & Right("0" & Minute(now), 2) & "." & Right("0" & Second(now), 2)
NewFold = MyPath & MyDate
If Not FSO.FolderExists(NewFold) Then
FSO.CreateFolder(NewFold)
'Выводит уведомление о создании папки
'M1 = MsgBox("Создана папка:" & chr(13) & NewFold, vbOKOnly + vbInformation, "Результат")
Else
'Выводит уведомление, если такая папка уже существует
M1 = MsgBox("Папка" & chr(13) & NewFold & chr(13) & "уже существует", vbOKOnly + vbExclamation,"Внимание!")
End If
Set FSO = Nothing
Wscript.Quit