How can we use single line array in below vbscript : 'how can we use all values str1,str2 under str1

path="D:\verify\files\"



set fso = CreateObject("Scripting.FileSystemObject")


set directory = fso.GetFolder(path).Files


    

for each file in directory


 if file.Attributes="32" then

    

    

 

Dim sSearchString1, sSearchString2, sSearchString3, sSearchString4,extension

sSearchString1 = "<IDNew>511</IDNew>"

sSearchString2 = "<Name>nielle</Name>"

sSearchString3 = " <IDNew>643</IDNew>"

sSearchString4 = "<Name>ase</Name>"

extension = "xml"



Set oFolder = fso.GetFolder(dir)

 

For Each fil in oFolder.Files

    Set oFile = fso.OpenTextFile(fil.Path, ForReading) 

    strName1 = fso.GetFileName(fil)    

  

 sReadAll = oFile.ReadAll

 oFile.Close

      

  If InStr(sReadAll, sSearchString1) > 0 or _

     InStr(sReadAll, sSearchString2) > 0 Or _

     InStr(sReadAll, sSearchString3) > 0 Or _

     InStr(sReadAll, sSearchString4) > 0 Then     

    

     count=count+1

     fso.CopyFile fil.Path, StrDestinationLocation

         

cap12=" Backup Success"

    strContent =  "" &date &space(1)  &sms &space(1)  &cap12 & Space(2) &strName1

    Set objLogs = FSO.OpenTextFile _

    (strFileName1 , ForAppending, True)

    objLogs.WriteLine(strContent)

    objLogs.Close

        

    End If

  

