[VBS] 日付から新しいフォルダーを作る自作ツール ---FileSystemObject.CreateFolder

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

2016-07-25 15_08_20-Microsoft ® Windows Based Script Host のジャンプ リスト

2016-07-25 15_12_03-スタート