よくするスクリプトなので自分用のメモです。デスクトップにExe化した実行ファイルを置いておいて、タスクバーから利用しています。
Set filer = WScript.CreateObject("Scripting.FileSystemObject")
folder_name = Replace(Left(Now(),10), "/", "-")
path = filer.BuildPath(".", folder_name)
If filer.FolderExists(path) = false Then
filer.CreateFolder path
End If