VBScript to recursively remove spaces from filenames in a directory

RecursivelyStripSpacesFromFilesnames.vbs

Dim fso : Set fso = WScript.CreateObject("Scripting.FileSystemObject")

sub fixFolder(path)
    Dim fol : Set fol = fso.GetFolder(path)
    
    For Each fil In fol.Files
	If InStr(1, fil.Name, ".bxl") <> 0 Then
            If InStr(1, fil.Name, " ") <> 0 Then
                dim newName : newName = Replace(fil.Name, " ", "")
                fil.Name = newName
            End If
        end if
    Next

    for each Subfolder in fol.SubFolders
        fixFolder(Subfolder.Path)
    next
end sub

fixFolder(".")
    
WScript.Echo "Completed!"