【VBScript】ドラッグ＆ドロップでフォルダを圧縮し、パスワードを本日の年月日に設定する

VBSスクリプトを使用して、フォルダを7-zipで圧縮し、パスワードを本日の年月日に設定する方法を紹介します。 毎日フォルダをパスワード付きに圧縮する作業は、パスワードを1つ1つ設定するのが面倒ということでVBSで作成しました。 このスクリプトを使用すると、ドロップしたフォルダを圧縮し、パスワードを本日の年月日に設定することができます。

このスクリプトを使用するためには、7-zipのコマンドライン版がインストールされていることが前提条件です。また、管理者権限が必要であることにも注意してください。

'------------------------------------------------------------------------------------------------------------------
' 現在の日付を取得
currentDate = Date()
' 年、月、日を取得
currentYear = Year(currentDate)
currentMonth = Month(currentDate)
currentDay = Day(currentDate)

' ドロップされたフォルダのパスを取得
Set objArgs = WScript.Arguments
If objArgs.Count = 1 Then
    sSource = objArgs(0)
    ' 圧縮先のファイルを設定
    sDestination = sSource & ".zip"
    
    ' シェルオブジェクトを作成
    Set oShell = CreateObject("WScript.Shell")

    ' 7-zipコマンドを実行
    oShell.Run """C:\Program Files\7-Zip\7z.exe"" a -tzip -p" & currentYear & currentMonth & currentDay & " """ & sDestination & """ """ & sSource & """", 0, True

Else
    ' フォルダがドロップされていない場合は、スクリプトを終了
    WScript.Quit
End If

このスクリプトはChatGPTを利用して作成しました。 プログラマがAIにとって代わる時代が来るのでしょうか。