vbscript delete folders except difine in exception

Dear,

need support for below script for deleting all folders except in exception.

Its deleting all

Dim Exception
Exception = Array("Test2")


Function Deletfdrs()
    Dim fso, f, f1, fc, i
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder("C:\Temp1\")
    Set fc = f.SubFolders
    
         For Each f1 in fc
                        
            For i = 0 to UBound(Exception)
            
           If f1.name = Exception(i) Then f1.Delete = False
           
        Next
        
                       
   f1.Delete
    
        'If delete = True Then msgbox(f1.name)'f1.delete
    Next
End Function 

Support@Mytechnet.me