vbscript - 特定のフォルダーから N 日経過したファイルを削除する

Question

2 つのパラメーターを呼び出すスクリプトを作成しましたが、実行するたびにエラー メッセージが表示されます。

行: 7 文字: 21 エラー: リテラル定数が必要です コード: 800A0415

ここで私が間違っていることを理解するのを手伝ってもらえますか?

以下のスクリプトは、2 つのパラメーターを受け取り、それらのパラメーターに基づいてファイルの削除を実行することを想定しています。

最初のパラメーターには削除するファイルへのパスが含まれ、2 番目のパラメーターには経過日数を表す数値が含まれます。

Dim arg, var1, var2
set arg = wscript.Arguments
var1 = arg(0)
var2 = arg(1)

Const strPath = var1
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

Call Search (strPath)
WScript.Echo"Completed Successfully."

Sub Search(str)
    Dim objFolder, objSubFolder, objFile
    Set objFolder = objFSO.GetFolder(str)
    For Each objFile In objFolder.Files
        If objFile.DateLastModified < (Now() - var2) Then
            objFile.Delete(True)
        End If
    Next
    For Each objSubFolder In objFolder.SubFolders
        Search(objSubFolder.Path)
    Next
End Sub
Set objFSO = nothing
Set arg = nothing