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
Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE