VBScriptを使用して現在日時を名前にしたフォルダを作成する方法

VBScriptを使用すれば、Windows環境で簡単にフォルダを作成し、その名前を現在の日時に設定することができます。

この記事では、VBScriptを使用して現在日時を名前にしたフォルダを作成する手順を詳しく説明します。

VBScriptの作成
完全なVBScriptコード
まとめ

VBScriptの作成

VBScriptを使用して新しいフォルダを作成し、その名前を現在の日時に設定します。

１．まず、WScript.Shell オブジェクトと Scripting.FileSystemObject オブジェクトを作成します。

これらのオブジェクトは、スクリプト実行時にフォルダの作成や日時の取得などの操作を行うのに使用します。

Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

２．現在の日時を取得

次に、Now 関数を使用して現在の日時を取得します。

これにより、年、月、日、時、分、秒の情報を取得できます。

dt = Now

３．フォルダ名の生成

取得した日時をもとに、フォルダ名を生成します。

フォルダ名は、年、月、日、時、分、秒の情報を連結して生成します。

生成されたフォルダ名は、以下の形式で表されます。

YYYYMMDD_HHMMSS

これにより、フォルダ名が日時情報に基づいて一意になります。

folderName = Year(dt) & Right("0" & Month(dt), 2) & Right("0" & Day(dt), 2) & "_" & Right("0" & Hour(dt), 2) & Right("0" & Minute(dt), 2) & Right("0" & Second(dt), 2)

４．フォルダの作成

生成したフォルダ名を使用して、新しいフォルダを作成します。

この例では、フォルダを C:\temp\ パスに作成しています。

必要に応じて、このパスを変更できます。

newFolder = "C:\temp\" & folderName ' フォルダのパスを指定
objFSO.CreateFolder(newFolder)

５．メッセージの表示

フォルダが正常に作成された場合、メッセージボックスを表示し、ユーザーに通知します。

MsgBox "新しいフォルダ [" & folderName & "] が作成されました。", vbInformation, "フォルダ作成完了"

完全なVBScriptコード

新しいフォルダを作成し、その名前を現在の日時に設定し、メッセージボックスを出力、という一連の処理は以下のように記述することができます。

' VBScriptを使用して現在の日時を名前にしたフォルダを作成する

' 現在の日時を取得
Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
dt = Now
folderName = Year(dt) & Right("0" & Month(dt), 2) & Right("0" & Day(dt), 2) & "_" & Right("0" & Hour(dt), 2) & Right("0" & Minute(dt), 2) & Right("0" & Second(dt), 2)

' 新しいフォルダを作成
newFolder = "C:\temp\" & folderName ' フォルダのパスを指定
objFSO.CreateFolder(newFolder)

' メッセージを表示
MsgBox "新しいフォルダ [" & folderName & "] が作成されました。", vbInformation, "フォルダ作成完了"

Set objShell = Nothing
Set objFSO = Nothing