VB代码搜索给定文件夹或目录中的所有excel文件

Question

请参阅下面的代码，它工作正常，并在给定目录中搜​​索所有 excel 文件。但我无法理解这段代码

疑问：NoOfFolders(Iterator1) 是一个动态数组，当再次调用函数 fnFolderStructure 时，NoOfFolders 数组再次被创建。但是即使值 NoOfFolders(0) 和 NoOfFolders(1) 也发生了变化，但是当再次使用以前的值调用它时仍然如此。

即使在写入NoOfFolders(Iterator1) 之后，它如何能够保留值。

fnCheckFiles("C:\Temp\Sahil")

Function fnFolderStructure(sAddress)
        i=0
        Dim NoOfFolders()
        Set objFSO1 = CreateObject("Scripting.FileSystemObject") 
        Set objFolder2 = objFSO1.GetFolder(sAddress) 
        Set FolderIn=objFolder2.SubFolders
        Set FileIn=objFolder2.Files

'       If FileIn.Count>0 Then
'            fnCheckFiles(sAddress)
'       End If  

    If FolderIn.Count>0 Then    
        y=FolderIn.Count        
        ReDim NoOfFolders(y-1)  

        For Each objSubfolder in FolderIn
             NoOfFolders(i)= objSubfolder.Name 
             i=i+1
        Next

        For Iterator1 = 0 To y-1
            sPath1=sAddress&"\"&NoOfFolders(Iterator1)
            fnCheckFiles(sPath1)
        Next

'            Set colSubfolders = FolderIn.Subfolders
'           Call fnFolderStructure(sPath1)
        End If
End Function

Function fnCheckFiles(sAddress)
            Set objFSO1 = CreateObject("Scripting.FileSystemObject") 
            Set objFolder4 = objFSO1.GetFolder(sAddress)        
            ''sFileName=objFolder4.Name
            For Each objFile In objFolder4.Files 
                sFileName=objFile.Name              
                if (InStr(1,sFileName,"xlsx",1)) then       
                    msgbox objFile.Name     
                End IF      
            Next


        if objFolder4.SubFolders.Count>0 then
            fnFolderStructure(sAddress)
        End if
End Function

Answer 1

即使在写入之后它如何能够保留值 NoOfFolders(Iterator1)

该语句没有写入数组。数组 NoOfFolders 用在四个地方...

1) 将值声明为动态数组

Dim NoOfFolders()

2) 重新调整变量以匹配它将保存的文件夹名称数量的大小

ReDim NoOfFolders(y - 1)

3) 将文件夹的名称分配给数组中的相应位置。这是将值写入数组的唯一位置。

NoOfFolders(i) = objSubFolder.Name

4) 从数组中读取文件夹名称，构建子文件夹路径

sPath1 = sAddress & "\" & NoOfFolders(Iterator1)

Answer 2

   ====================================================================================================================*/
def getTagValue(def filepath, def tagName,log)
{
    def tagValue = ""
    try
    {
        DocumentBuilderFactory docFactory = DocumentBuilderFactory.newInstance()
        DocumentBuilder docBuilder = docFactory.newDocumentBuilder()
        Document doc = docBuilder.parse(filepath)
        // Get the root element
        Node company = doc.getFirstChild()
        NodeList nodes = doc.getElementsByTagName(tagName)
        //log.info "Nodes length :" +nodes.getLength()
        Node node = nodes.item(0)
        //log.info node.getTextContent()
        tagValue = node.getTextContent()
        if(tagValue == "")
        {
            tagValue = "tag not found"
        }
    }
    catch(Exception e)
    {
        log.error e.message
        tagValue = "tag not found"
    }
    return tagValue
}

=============================== def List readXpaths(def expectedExcelPath, def expectedExcelSheet, log, context) {

        Fillo.Connection con=getFilloConnection(expectedExcelPath,log)
        String sQuery="Select * from "+expectedExcelSheet+" where TestCaseName='"+context.testCase.name+"'"
        //log.info sQuery

        Recordset rs=getRecordSet(con,sQuery,log)
        List<String> colList=rs.getFieldNames()
        colList.remove("TestCaseName")
        colList.remove("DATA_SET")
        colList.remove("RUN")
        List<String> xpaths=new ArrayList<String>()
        while(rs.next())
        {
            for(String str:colList)
            {           
                if(rs.getField(str)!="")
                {
                    xpaths.add(rs.getField(str))

                }
            }
        }
        return xpaths;
    }