Dim fso, folder, file, keyword
Set fso = CreateObject("Scripting.FileSystemObject")
Dim folderPath : folderPath =fso.GetParentFolderName(WScript.ScriptFullName)
keyword = "2"
Set folder = fso.GetFolder(folderPath)
For Each file In folder.Files
If Instr(file.Name, keyword) = 0 Then
fso.DeleteFile file.Name
End If
Next
Set fso = Nothing
Set folder = Nothing
Set file = Nothing