よくするスクリプトなので自分用のメモです。デスクトップに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