Как-то так (не проверялось):
Код:
Option Explicit
Dim dtCurrDate
Dim strFormattingDate
dtCurrDate = Now()
strFormattingDate = Right("0000" & Year(dtCurrDate), 4) & "." & Right("00" & Month(dtCurrDate), 2) & "." & Right("00" & Day(dtCurrDate), 2)
With WScript.CreateObject("Scripting.FileSystemObject")
If .FolderExists("D:\DAT") Then
If .FolderExists("C:\bnk\DAT") Then
If Not .FolderExists("D:\" & strFormattingDate) Then
.GetFolder("D:\DAT").Name = strFormattingDate
.CopyFolder "C:\bnk\DAT", "D:\DAT", True
Else
WScript.Echo "Folder [D:\" & strFormattingDate & "] already exists"
End If
Else
WScript.Echo "Folder [C:\bnk\DAT] not found"
End If
Else
WScript.Echo "Folder [D:\DAT] not found"
End If
End With
WScript.Quit 0
