[megaloman]

VBS-скрипт. Папки создаются с именами корректных дат

Код:

Set WShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

TDir = WShell.CurrentDirectory

Date1 = InDate(InputBox("Вводите дату в формате дд.мм.гггг", "Начальная дата"))
Date2 = InDate(InputBox("Вводите дату в формате дд.мм.гггг", "Конечная дата"))

For D = Date1 To Date2
'    MsgBox CStr(Date1) + "  " + CStr(Date2) + vbCrLf + CStr(D)
    On Error Resume Next
    FSO.CreateFolder (TDir + "\" + CStr(Year(D)) + "." + Right(CStr(Month(D) + 100), 2) + "." + Right(CStr(Day(D) + 100), 2))
'    If Err.Number<>0 Then
'	MsgBox err.description
'    End If
Next
WScript.Quit

Function InDate(Dtin)
    If IsDate(Dtin) Then
        InDate = CDate(Dtin)
    Else
        MsgBox Dtin + vbCrLf + "Дата введена неверно"
        WScript.Quit
    End If
End Function

alpap,

решите ребус: сколько и каких папок будет создано из диапазона: 27.02.2017 - 3.03.2017?

- а в чём подвох, ночь не буду спать пока не узнаю , мой скрипт выдал 5 папок