[kiripanda]

На VBS :

Код:

Dim fso, Yesterday, Today, path

path = "z:\1\"

Yesterday = DateSerial(Year(Date), Month(Date), Day(Date)-1)
Today = DateSerial(Year(Date), Month(Date), Day(Date))

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(path & Yesterday) Then
    fso.MoveFolder path & Yesterday, path & Today
Else
    Wscript.Echo "Folder does not exist."
End If

WScript.Quit