Tjek for nye filer virker - men hvordan kan jeg ignorere bestemte filtyper?

Jeg skal løbende tjekke en mappe for nye BMP filer, hvorefter de skal konverteres til JPG. Jeg har stumpet dette sammen - og det virker:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & _
        strComputer & "\root\cimv2")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
    ("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _
        & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _
            & "TargetInstance.GroupComponent= " _
                & "'Win32_Directory.Name=""c:\\\\scripts""'")
Do
    Set objLatestEvent = colMonitoredEvents.NextEvent
  Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("c:\scripts\i_view32.exe c:\scripts\*.bmp /convert=c:\scripts\*.jpg")

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile "c:\scripts\*.bmp", True

Loop

Hvert 10. sekund tjekkes mappen, og billederne konverteres, hvorefter BMP'erne slettes. Fint!

Men hvis der sniger sig andre filer ind i mappen, dør scriptet. Kan jeg få det til at ignorere alt, på nær BMP?

Bonusspørgsmålet - jeg ville gerne kunne kontrollere destinationsmappen nemmere. Kan jeg gøre den til en variabel, så det er nemmere at fifle med?

Jeg er på ingen måde erfaren, så bær over med mig, hvis det er barnemad :)