【VBScript】ファイル名の頭に日付を自動で追加する

Option Explicit

Dim getDate
'yyyymmdd形式で日付を取得
 getDate = Replace(Left(Now(), 10), "/", "")
'yymmdd形式に変更
 getDate = Mid(getDate, 3, 6)

' ドラッグアンドドロップされたデータを格納する変数
Dim args
Set args = WScript.Arguments

' ファイルシステムオブジェクトの作成
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")

' ファイルのフルパス、パス、ファイル名、拡張子
Dim fullpath, filepath, filename, ext

For Each fullpath In args

    ' 拡張子の取得
    ext = fso.GetExtensionName(fullpath)

    ' ファイル名の取得
    filename = fso.GetFileName(fullpath)

    ' ファイル名の生成
    filename = Replace(filename, "." & ext, "")
    filename = getDate & "_" & filename & "." & ext

    ' ファイル名の変更
    Set file = fso.GetFile(fullpath)
    file.Name = filename

Next

' オブジェクトの破棄
Set file = Nothing
Set fso = Nothing