How to ignore alphabetical case in an array comparison-VBScript-

SnAkEhIpS
SnAkEhIpS used Ask the Experts™
on
The attached vbscript compares 2 arrays and writes any discrepancies to a text file. A problem arises when the name of the element in the first array (arrFirst) does not match the alphabetical case of the element in the second array (arrSecond). For example, "Folder12" in arrFirst should be considered a match with "foLdEr12" in arrSecond. How can I ignore case in comparison of these arrays?
Const FOR_WRITING = 2 
 
Dim objFso 
Dim objOutputFile 
Dim strOutputFile 
 
Dim arrFirst 
Dim arrSecond 
Dim strElementFirst 
Dim strElementSecond 
Dim blnExistsInSecond 
 
strOutputFile = "C:\temp\Differences.txt" 
 
Set objFso = CreateObject("Scripting.FileSystemObject") 
If objFso.FileExists(strOutputFile) Then 
Set objOutputFile = objFso.OpenTextFile(strOutputFile,FOR_WRITING) 
Else 
Set objOutputFile = objFso.CreateTextFile(strOutputFile) 
End If 
arrFirst = arrFolders
arrSecond = Array("F","G","H","A","B","Z") 
'the problem arises when the name of the element in arrFirst does not match the case of the element in arrSecond
 
For Each strElementFirst In arrFirst 
blnExistsInSecond = False 
For Each strElementSecond In arrSecond 
If strElementFirst = strElementSecond Then 
blnExistsInSecond = True 
Exit For 
End If 
Next 
If Not blnExistsInSecond Then 
objOutputFile.WriteLine strElementFirst & " does not exist in the second array" 
End If 
Next

Open in new window

Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Commented:
change

If strElementFirst = strElementSecond Then


to

If lcase(strElementFirst) = lcase(strElementSecond) Then

Author

Commented:
Thank you for the rapid response. It works great.

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial