現在時刻のフォルダを作る

概要

ファイルを一時避難させる際にとりあえず新しいフォルダを作って名前つけてとかやるのが面倒なので, 現在の時刻のフォルダをただ作るだけのプログラム。

"新しいフォルダー(2)"とかすごい嫌いなので。

使い方

メモ帳にソースコードをコピペして拡張子を".vbs"にして保存。

ファイルをダブルクリックすればそのフォルダに現在時刻のフォルダができます。

例 : 2020/4/1 10:20:30なら”20210401102030"というフォルダができる。

ソースコード

On Error Resume Next
Dim FsoCurrent
Set FsoCurrent = createObject("Scripting.FileSystemObject")
Dim CurrentFolder
CurrentFolder = FsoCurrent.getParentFolderName(WScript.ScriptFullName)

Dim FolderName
FolderName = Replace(Replace(Replace(Now,"/",""),":","")," ","")

FolderName = CurrentFolder & "\" & FolderName

Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

fso.CreateFolder(FolderName)