4Chan Thumbnail Cleaning Tool.vbs

' Name: 4Chan Thumbnail Cleaning Tool
' File: 4Chan Thumbnail Cleaning Tool.vbs
' Licence: N/A
' Author: DeviousMalcontent
' Date: 7th June 2014
' Version: 1.0
' Release: 1
' Language: VBScript
' Compiler: N/A
' Background: Got to a point while on 4chan when it became too inconvenient
' to save each individual image from a thread; With the April (2014) Update, you are
' now able to expand all the images in the thread to full size then just save
' the page with Firefox; but this creates unnecessary files in the directory
' upon which all the images are stored, so what this script does is basically
' delete all the files with in that directory except the full sized images from the thread.
'
' Usage: When you save a thread, the folder named "_le board name_ - ITT we post maymays images_files"
' needs to be renamed to "temp" (if you're smart you'll be able to figure out how to change that if you do so wish to.)
' then just run the script from the same directory as the temp folder.
'
' >inb4 script kiddie
' Use at own risk.

Set objShell = wscript.createobject("wscript.shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(objShell.CurrentDirectory & "\temp")
Set colFiles = objFolder.Files

For Each objFile in colFiles
    If InStr(objFSO.GetBaseName(objFile.Name), "-") <> 0 or InStr(objFSO.GetBaseName(objFile.Name), "_") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "a") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "b") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "c") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "d") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "e") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "f") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "g") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "h") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "i") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "j") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "k") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "l") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "m") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "n") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "o") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "p") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "q") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "r") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "s") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "t") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "u") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "v") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "w") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "x") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "y") <> 0 or InStr(LCase(objFSO.GetBaseName(objFile.Name)) , "z") <> 0 Then
        objShell.Exec("cmd.exe /C del """ & objFolder & "\" & objFile.Name & "")
    End If
Next

Function GetExt(fileName)
    Dim pos, name, xtn
    pos = InstrRev(fileName,".")
    xtn = Mid(fileName,pos+1)
    name = Mid(fileName,1,pos-1)
    GetExt = "." & xtn
End Function