删除具有特定名称和上次修改日期的文件vbscript

Question

我是VB Script的新手，请帮我处理以下代码。

我有一个要求，我需要删除x天以前的文件夹中的所有文件以及以 xxxyyyzzz.log 开头的文件名。

我有以下代码，但它正在抛出

  

错误为第16行中的错误

Const strPath = "C:\Users\xyz\Downloads"  
Dim objFSO  
Set objFSO = CreateObject("Scripting.FileSystemObject")

Call Search (strPath)  

WScript.Echo"Done."

Sub Search(str)  
    Dim objFolder, objSubFolder, objFile
    Set objFolder = objFSO.GetFolder(str)
    For Each objFile In objFolder.Files

        If Not ((objFile.filename = xxx*.log) And (objFile.DateCreated < (Now() - x)) Then
            objFile.Delete(True)
        End If

    Next
    For Each objSubFolder In objFolder.SubFolders
        Search(objSubFolder.Path)

            If (objSubFolder.Files.Count = 0) Then
            objSubFolder.Delete(True)
        End If

    Next
End Sub